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ACHTUNG! TI - 99/4A Besitzer 


Compact Peripherie System 99 



CPS 99 mit einem Laufwerk 1 

DS DD = 360 K mit 32 K-RAM, 

2xRS 232, Centronics Interface 
Disk-Controller DS DD 

CPS 99 mit zwei Laufwerken 2i 
DS DD = 720 K mit 32 K-RAM 
2 x RS 232, Centronics Interface 
Disk-Controller DS DD 

Karten für orig. Tl-Box 



Alle Erweiterungskarten 
aus deutscher Fertigung. 

32 K-Byte RAM Erweiterung 
RS-232 Karte (parallel/seriell) 
Disk-Steuerkarte DS DD, 4 LW 

mit Di*k-Manager auf Diskette 

Disk-Steuerkarte DS DD, 4 LW 

mit 32 K-Byte RAM 

RS-232-Karte (parallel/seriell) 

mit 32 K-Byte RAM 

Alle Preise ind MwSt. zuzügl. 5.- DM / 
Versandkosten Lieferung per Nach- [A 
nähme oder Vorkasse. | fl 

Ab 200,- DM versandkostenfrei Ifl 

Fordern Sie kostenlos \ 

unsere Sonderpreisliste an. 


Externe Erweiterungen 





Alle Erweiterungen mit durchgeführtem 
Datenbus in hochwertiger C-MOS Technik 
mit umfangreicher deutscher Beschrei¬ 
bung. 

32 K RAM Erweiterung 279,- 

32 K RAM m. Centronic-Interface 369,- 

Centronic-Interface 248,- 

RS-232 Schnittstelle 368,- 

Sprach-Synthesizer 198,- 

NEU - NEU - NEUNEU - NEU^NEil 

Disk-Controller DS DD aA. 

im Gehäuse mit Netzteil 
mit Disk-Manager auf Diskette 
Disk-Laufwerk DS DD 649,- 

im Gehäuse mit Netzteil 


Software 


Mini Memory 
Editor Assembler 
Multiplan 
Tl-Writer 

Terminal Emulator 

Basic-Compiler 

ID-Data 

ID-Konto 

Spiele 


259,- 

165,- 

259,- 

259,- 

85,- 

98,- 

119 ,- 

119,- 

von 30,- bis 79,- 


NEU - EXKLUSIV - NEU - EXKLUSIV 
GPL-Assembler/Disassembler 149,- 

(Diskette) 

und dazu das Buch von Heiner Martin 
TI-99/4 A intern 38,- 



Programm-Service 


1111 


D-5584 Bullay 

Bergstraße 80 
Telefon 06542/2715 



Wie immer steht unseren Lesern unser Telefon-Service 
zur Verfügung! Jeden Dienstag von 15 bis 19 Uhr. 
Für technische Fragen: 0731/33220 und 


für Listings/Programme: 0 89 /129 8013 


Wir lassen den TI-USER nicht im Stich! 



CPS 99: Das kompakte System! 
2 x RS 232, 1 x Parallel Interface 
32 KByte, Speichererweiterung 
Disketten-Controller/Disk-Drive 

32 K RAM Erweiterung 
Centronics Interface 
V24 (RS 232) Interface 
32 K RAM + Centronics 
Externe Disk-Laufwerke 


NEUE KARTEN FÜR 
PERIPHERIE-BOX: 

RS 232/Centronics Karte 
32 K RAM Erweiterung 
Disk-Controller (bis zu 4 X 360 KByte) 

Interface Karte mit 32 K RAM 
Controller Karte mit 32 K RAM 


— Umfangreiche Software, weiteres Zubehör! — 

FORDERN SIE DIE PREISLISTE AN! 

atronic-Produkte bekommen Sie bei jedem guten Tl-Händler oder direkt bei: 

-Meiendorfer Weg 7 - 2000 Hamburg 73 - Tel. 0 40/6 78 93 08-09 - Tx. 217 40 31 
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Die Umstellung auf monatliche Er¬ 
scheinungsweise kostet uns natür¬ 
lich doch einige Nerven und zusätz¬ 
liche Arbeit. Immerhin muß ja jetzt 
von der Redaktion und im Verlag 
in gleicher Zeit die doppelte Sei¬ 
tenzahl bereitgestellt werden. 
Dennoch hoffen wir, daß auch diese 
Ausgabe Ihrer TI-REVUE wieder 
bei Ihnen Anklang findet. 

Sehr erfreut ist momentan wohl die 
Lage auf dem Zubehörsektor für den 
TI 99/4A zu beurteilen. In den letz¬ 
ten Monaten wurden gerade aus 
deutscher Fertigung einige interes¬ 
sante Neuheiten angekündigt und 
auch teilweise schon ausgeliefert. 

Um so bemerkenswerter ist dies, da 
ja doch schon ein klein bißchen Un¬ 
sicherheit vorhanden war, ob über¬ 
haupt und wenn ja zu welchem 
Preis in Zukunft Erweiterungen zu 
kaufen sind. Nun, da auch die Prei¬ 
se unter denen der Originalgeräte 
liegendst damit für die Zukunft vor¬ 
gesorgt. Einen kleinen Mangel gibt 
es wohl an neuer Software, wie uns 
auch schon Händler ihr Leid ge¬ 
klagt haben. Aus neueren amerika¬ 
nischen Katalogen können wir aber 
ersehen, daß jenseits des großen 
Teiches gerade hier viel auf den 
Markt gekommen ist, so daß sich 
die Situation hierzulande wohl bald 
bessern wird. In den USA scheint 
man momentan bei den Hardware¬ 
erweiterungen etwas hinterherzu¬ 
hinken. 

Größeren Wirbel, sprich Leseranfra¬ 
gen, hat die Veröffentlichung einer 
anderen Zeitschrift über einen neu¬ 
en T!-Computer verursacht. Unsere 
Antwort dazu lesen Sie in der Rub¬ 
rik „Leserfragen". 

Nachzutragen dazu bleibt noch, daß 
dieser von der amerikanischen Firma 
MYA RC entwickelte Computer auf 
einer Ausstellung in Chicago am 
2. November gezeigt werden soll 
(der Redaktionsschluß für diese Aus¬ 
gabe lag schon vor diesem Termin), 


Tiefkühlkost: 

Bringen Sie Ihre Truhe auf 
Vordermann 42 


Bruch rechnen: 

So verliert die nächste 
Mathearbeit ihre Schrecken 47 


in einer Version mit 256 KByte RAM. 
Dennoch, solange dafür kein Preis 
festgelegt und die Lieferfähigkeit 
vorhanden ist, handelt es sich eben 
um ein schönes Einzelstück, wie ja 
auch die amerikanische Firma 
CorComp schon einmal ein sehr teu¬ 
res Vorführmodell gezeigt hat, wel¬ 
ches bisher nicht in Produktion ist. 
Von der Ausstellung in Chicago, 
die sich übrigens nur um den TI 99/ 
4A dreht, haben wir einen Bericht 
von unserem amerikanischen Korres¬ 
pondenten angefordert und hoffen, 
diesen in der nächsten Ausgabe ver¬ 
öffentlichen zu können. Bis dahin 
die besten Grüße von Eurem 
TI-REVUE-Team 

Nicht vergessen: Seid Ihr mit dem 
Heft zufrieden, sagt es weiter, seid 
Ihr unzufrieden, sagt es uns. 

Und: Jeden Dienstag von 15 bis 19 
Uhr stehen Ihnen unser Lesertele¬ 
fon zur Verfügung: Für technische 
und Assemblerfragen Tel.-Nr. 
0731/33220 und zu den Listings 
Tel.-Nr. 089/1298013. Wir bitten 
um Verständnis, daß am 24. und 
31.12.85 sowie am 6.1.86 das Leser¬ 
telefon nicht besetzt ist. 

PS: Ein Hinweis des Abo-Service für 
Abonnenten: 

Es kann geschehen, daß Sie das letzte 
oder dieses Heft doppelt bekommen. Das 
hat einen einfachen Grund: Die ständig 
steigenden Abonnements zwangen lang¬ 
sam aber sicher unseren TI röchelnd in 
die Knie. (Verwalten Sie doch damit mal 
rund 11 000 Adressen!) Deshalb wurde 
der Abo-Service mit einem PC samt 20 
Megabyte Festplatte ausgerüstet, der als 
erstes mal den Geist aufgab, sinnigerweise; 
als die ersten 4500 Abonnenten schon 
eingetippt waren. Einige Anschriften 
konnten wir retten, andere mußten neu 
eingegeben werden. So kann es geschehen, 
daß aus dem alten TI, dem ersten und 
auch dem 2. PC mal Adreßaufkleber 
doppelt kamen. Behaltet das Heft, ver¬ 
schenkt es, bitte nicht zurückschicken. 
Danke 


Grüß Gott—Gruezi—Guten Tag 
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BRIEFE 


IN EIGENER SACHE 

In der letzten Zeit wurden wir 
öfter gefragt, ob wir eigent¬ 
lich Leserfragen nur am Tele¬ 
fon und an dieser Stelle hier 
beantworten. Nein, alle 
schriftlichen Fragen werden 
auch direkt von uns beant¬ 
wortet. Leider liegen bei uns 
aber noch eine ganze Menge 
Fragen „auf Eis". Diese kön¬ 
nen wir nicht beantworten, 
weil nirgendwo ein Absender 
vermerkt war. Also, wer 
noch keine Antwort bekom¬ 
men hat, schreibe uns bitte 
nochmal und bitte den 
kompletten Absender mit 
Anschrift auf dem Brief 
(nicht nur auf dem Umschlag!) 
vermerken. Letzteres gilt na¬ 
türlich ganz allgemein. 

Briefe mit der Anschrift 
„Karl Schusselig, Deutsch¬ 
land" haben wenig Chancen 
anzukommen und werden 
von uns deshalb gar nicht erst 
weggeschickt. 


Eprommer-Platine 


In den Ausgaben 6/85 und 
7/85 hatten Sie einen Bericht 
über einen Eprom-Program- 
mierer. Meine Frage ist, wo 
bekomme ich diese Platine 
mit dem Sockel? Außerdem: 
Kann man die Sockel im Elek¬ 
tronikladen kaufen, welche 
Nummer haben die Eprom- 
Sockel? 

Eine andere Frage: Wie kann 
man bei Extended-Basic den 
Befehl "Protected" überge¬ 
hen oder gar löschen, um wie¬ 
der Listen und Saven zu 
können? 

In der Ausgabe 6/85 wurde 
das Modul Extended Basic II 
plus vorgestellt. Frage: Kann 
man die Grafik-Routinen nur 
mit Erweiterung benutzen 
oder kann man sie direkt vom 
Modul mit "CALL APESOFT" 
abrufen ohne die Apesoft- 
Grafik extra zu kaufen? 
Carlos Gomez-Saez, 
Düsseldorf 

Den Sockel für das Eprom 
können Sie in jedem Elektro¬ 
nikladen kaufen. Da es diese 
von verschiedenen Herstel¬ 
lern gibt, können wir Ihnen 
leider keine Nummer ange¬ 
ben, verlangen Sie einfach ei¬ 
nen 28poligen Nullkraft¬ 
sockel. Die Fertigung und 
den Vertrieb der Platine hat 
für uns die Firma Elektronik- 
Service, Linning 37, 4044 
Kaarst 2, übernommen. 
Weiteres entnehmen Sie bitte 
den Anzeigen dieser Firma. 
Protected können Sie wie 
folgt auf lösen, was sich ja 


mittlerweile herumgespro¬ 
chen haben dürfte: "CALL 
LOAD(-31931,0)" Um 
allerdings Call Load durch¬ 
führen zu können, benötigen 
Sie eine Speichererweiterung. 
Das Modul Extended Basic II 
plus beinhaltet die komplet¬ 
ten Apesoft Grafik-Routinen. 
Mit CALL APESOFT werden 
diese in die Speichererweite¬ 
rung aus dem Modul ausgela¬ 
den. Sie benötigen dazu also 
eine 32KByte Speichererwei¬ 
terung, müssen aber die Ape- 
soft-Grafik nicht extra 
kaufen. 


Druckerprobleme 


Ich habe Probleme mit mei¬ 
nem Drucker. Folgende Kon¬ 
figuration benutze ich: TI 99/ 
4A Konsole, Parallel TI Inter¬ 
face, Seikosha GP 250X 
Drucker. Dieser druckt nur 
4 Buchstaben und rattert 
dann durch. Ich versuchte es 


mit dem Modul Datenverwal¬ 
tung und Analyse, Texte- und 
Dateiverwaltung und auch 
Extended Basic. Noch mehr 
Probleme gibt mir das Mini- 
Memory auf. Eventuell kön¬ 
nen Sie mir helfen. 

Rene Mayer, 

Schwarzenbach 

Leider geben Sie uns keine ge¬ 
naueren Hinweise, was beim 
„Durchrattern" exakt ge¬ 
schieht. Wir vermuten aber, 
daß bei Ihrem Kabel bzw. 
dem Anschluß des Interface 
eine der Leitungen "Busy" 
oder "Acknowlegde" nicht 
richtig verbunden ist. Diese 
Leitungen sind nämlich Aus¬ 
gänge am Drucker und zeigen 
dem TI an, daß der Drucker 
nicht empfangsbereit ist. 

Ihre Fragen zum Mini-Memo¬ 
ry scheinen sehr allgemeiner 
Natur zu sein. Dieses Modul 
ist ja eines der Module, die 
Maschinensprache für den 
TI 99/4A können. Die Anlei¬ 
tung zum Mini-Memory ist 
sehr dürftig. Wir können Ih¬ 
nen hier nur empfehlen, sich 
dazu noch das Handbuch zum 
Editor/Assembler zu beschaf¬ 
fen. In diesem ist die Maschi¬ 
nensprache des TI 99/4A we¬ 
sentlich ausführlicher be¬ 
schrieben. 


Speichererweiteru ng 
abschalten 


Bei der Konfiguration Konso¬ 
le, Minmem und Speicherer¬ 
weiterung kann man mit dem 
Befehl CALL LOAD 
(28706,0,0,0,0,0,0,0,0) die 
Speichererweiterung „unsicht¬ 
bar" machen. Welche Möglich¬ 
keit gibt es nun, um in der 
Konfiguration Konsole plus 
Extended Basic und Spei¬ 
chererweiterung mit einem 
ähnlichen Befehl zu verhin¬ 
dern, daß ein Programm in 
Extended Basic in die Spei¬ 
chererweiterung ab >A000 
aufwärts geschrieben wird, 
d.h., die Speichererweiterung 
unsichtbar wird? 

Durch unterschiedliche Ver¬ 
öffentlichungen verwirrt, 
erhebt sich bei mir die Frage: 
Benötigt man zum Betrieb 
eines Druckers unbedingt die . 
Expansions-Box (Minimem, 


Ext. Basic und 32K-Erweite- 
rung vorhanden)? 

NoName 

Die Speichererweiterung kann 
unter Extended Basic wie 
folgt „abgeschaltet" werden: 
Sie geben folgendes Programm 
ein und starten es dann mit ■ 
RUN. 

100 CALL LOAD(-31868,0, 

0):: RUN "DSK1.XXX" 

Für XXX geben Sie den Pro¬ 
grammnamen ein, welches Sie 
starten wollen, für den Kasset¬ 
tenrekorder muß h heißen: 
"CS1" statt "DSK1.XXX". 
Wichtig ist, daß nach dem Call 
Load unbedingt irgendein 
Programm eingeladen und ge¬ 
startet wird, sonst gerät das 
Betriebssystem völlig durch¬ 
einander. "Einschalten" kön¬ 
nen Sie die Speichererweite¬ 
rung übrigens wieder mit die¬ 
sem Programm: 

100 CALL LOADf-31868, 
255,231):: RUN "CS1" 

Zum Anschluß eines Druk- 
kers benötigen Sie an der TI 
99/4A-Konsole ein Interface. 
Dieses muß in seinem Typ 
zum Interface des Druckers 
passen. Für den TI gibt es 
RS232- (auch als V24 be¬ 
zeichnet) und Centronics- 
Interface (Parallel-Schnitt- 
ste/le). Beide sind sowohl als 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 


Karte für die Peripheriebox 
wie auch als "stand-alone"- 
Ausführungen erhältlich, die 
direkt seitlich an'der Konsole 
angesteckt werden. Schluß- 
endlich gibt es auch noch 
zwei verschiedene 32KByte- 
Speichererweiterungen mit 
eingebautem Centronics- 
Interface, die seitlich an den 
TI angesteckt werden. 


Zum Kassettenrekorder 


Ich konnte Ihre Kassette N. 5 
wie auch die Rückseite einer 
anderen, bespielt gekauften 
Kassette nicht laden. In vager 
Erinnerung eines Tips in der 
TI-REVUE 6 zog ich den 
"Save"-Stecker aus der Mikro¬ 
phonbuchse des Kassettenge¬ 
rätes, danach OLD CS1 usw. 
ganz normal und siehe da: 
DATA OK. Können Sie mir 
erklären, warum das so geht? 
Peter Bigler, Muri 

Der Kassetteneingang des TI 
99/4A benötigt natürlich ein 
einigermaßen gutes Signal 
vom Kassettenrekorder, d.h. 
das Signal darf nicht zu viel 
Rauschen, Brummen oder 
sonstige Störimpulse auf wei¬ 
sen. Je nach interner Beschal¬ 
tung des Kassettenrekorders 
kann es sein, daß durch Mikro¬ 
phon und Kopfhöreranschluß 
die Masse doppelt verbunden 
ist, was zu den Störeffekten 
einer Masseschleife führen 
kann. Ebenso kann der dop¬ 
pelte Anschluß im Kassetten¬ 
rekorder zu einer niedrigen 
Ausgangsspannung führen. 

Das alles ist aber vom Kasset¬ 
tenrekorder abhängig und 
kann schlußendlich mit nicht 
auf diesem Gerät bespielten 
Kassettemeine zu hohe Stö¬ 
rung des Signals ergeben. 

Neuer Tl-Cpmputer? 


Eigentlich wollte ich den Trick 
aus Heft 7/85 von Franz 
Becker ausprobieren. Aber ich 
kam auf etwas sehr seltsames. 
Bitte probieren Sie folgendes: 

1 ! (Ctrl U drücken bis Zeile 
voll ist) 

Dann Enter drücken und NUM 
1 eingeben. Der ganze Bild¬ 
schirm wird voll mit 
"RANDOMIZE". 

Kurz danach wird der Bild¬ 
schirm gelöscht. Nun machen 
Sie folgendes. 

4mal 1 drücken: RANDO¬ 
MIZE erscheint wieder. 

Imal 2 drücken: Bildschirm 
wird gelöscht. 

9mal 3 drücken: Rechts und 
links orange Balken, in der 
Mitte orange und grüne Strei¬ 
fen. 
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BRIEFE 


WICKERT COMPUTERSHOP 


14mal 4 drücken: Bildschirm 
wird orange mit blauen Punk¬ 
ten. 

Imal 5 drücken: 2 große 
Strings erscheinen auf dem 
Bildschirm. 

Es gibt unendlich viele Tasten¬ 
kombinationen. Das ganze 
geht auch mit anderen Con¬ 
trol -Zeichen. Der Hinweis 
von Franz Becker ging bei mir 
nicht. Statt der Grauabstufun¬ 
gen kamen nur Basic-Anwei- 
sungen. Gibt es dafür eine Er¬ 
klärung oder ist mein TI 
defekt? 

Weiter habe ich in einer ande¬ 
ren Zeitschrift einen Bericht 
gelesen, daß in den Staaten 
ein verbesserter TI mit mehr 
Speicherplatz, besserer Grafik 
und höherer Geschwindigkeit 
herauskommen soll. Haben 
Sie nähere Informationen 
darüber oder ist das nur ein 
scherzloser Einfall eines Re¬ 
dakteurs gewesen? 

Steffen Keller, Merklingen 

Solche Tricks, die das Betriebs¬ 
system in irgendeiner Form 
überlisten, müssen nicht auf 
allen Ti 99/4A gleich funk¬ 
tionieren. Einmal gibt es 
verschiedene Betriebssysteme 
und zum anderen werden bei 
solchen Sachen manchmal 
auch die internen Bausteine 
(IC's) in nicht definierten 
Zuständen gehalten, was je 
nach Produktionsserie ver¬ 
schiedene Auswirkungen ha¬ 
ben kann. Defekt ist Ihr TI 
aber deshalb noch lange nicht. 
Die Frage nach dem neuen 
Tl-Computer kann zur Zeit 
recht einfach beantwortet 
werden: Es gibt ihn nicht. 
Richtig ist, daß sich seit der 
Produktionseinstellung des 
TI 99/4A hartnäckig Gerüch¬ 
te (vor allem in den USA) 
halten, nach denen ein neuer 
TI 99/4A-kompatibler Com¬ 
puter auf den Markt kom¬ 
men soll. Es gibt in den USA 
auch schon einige Prototypen 
bei kleineren Herstellern. Das 
momentan aussichtsreichste 
Projekt sieht folgendermaßen 
aus: TMS 9995 CPU, 128 K- 
Byte Speicher, MSX II- Video- 
Prozessor (80 Zeichen, meh¬ 
rere Spritesabenen, 256 Far¬ 
ben und bis zu 128KByte 
VDP-Ram). Dieser Computer 
soll voll softwarekompatibel 
zum TI 99/4A sein, d.h. die 
bisherigen Module sollen lau¬ 
fen. Auch die bisherige P-Box 
kann wohl mit einer geänder¬ 
ten Treiberkarte weiter betrie¬ 
ben werden. Probleme gibt es 
aber, wie aus amerikanischen 
Händlerkreisen zu erfahren 
war, mit 2 Dingen: Einmal 
werden von Texas Instruments 
Lizenzrechte benötigt und 


zum anderen scheint die Fi¬ 
nanzierung der Produktion 
noch-nicht gesichert,so daß 
es heute noch nicht feststeht, ' 
ob dieser Computer überhaupt 
produziert werden kann. 

Und dann ist bei der „gerad¬ 
linigen" Geschäftspolitik ja 
auch Texas Instruments sel¬ 
ber durchaus für eine Über¬ 
raschung gut. Dennoch wol¬ 
len wir hier nicht aufgrund 
irgendwelcher Gerüchte fal¬ 
sche Hoffnungen wecken. 

Wir glauben an den neuen 
99er Computer erst, wenn er 
bei uns auf dem Redaktions¬ 
tisch steht. 


Reset-Schalter 

Ich habe folgende Fragen an 
Sie: 

1. Wo befindet sich am Modul¬ 
port der Resetausgang? 

2. Gibt es schon Schnittstellen 
zum Seiberbauen? 

3. Wenn ich im Extended Basic 

. CALL PEEK(-2622,A) eingebe, 
hängt sich mein Computer auf. 
Woher kommt das? 

Michael Bursesch, 

Elmshorn 

Der Resetanschluß ist Pin 1 
am Modulport. Verbinden Sie 
diesen über einen 100 Ohm- 
Widerstand und einen Taster 
mit dem Anschluß für -5V 
(Pin 29) Pin 1 an diesem Stek- 
ker befindet sich unten links, 
Pin 2 darüber. Rechts neben 
Pin 1 liegt- Pin 3 usw. 
Schnittstellen zum Seiberbau¬ 
en sind uns bisher nicht be¬ 
kannt, aber wir arbeiten an 
einer. In diesem Zusammen¬ 
hang hätten wir eine Frage an 
unsere Leser: Wer uns dafür 
die Platine entwerfen will, 
bzw. kann, möchte sich bitte 
bei der Redaktion melden. 

Mit CALL PEEK(2622,A) 
verändern Sie die Grom- 
Adresse. Da der TI 99/4A da¬ 
nach dann nicht mehr an der 
gleichen Stelle wie vor dem 
Call Peek ist, kommt es zu 
der Fehlfunktion. Es wird im 
Betriebssystem quasi ein Byte 
im Programm übersprungen. 
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CPS 99 m. 1 Laufw. 

1698 — 

Konsole TI 99/4A 

345 — 

Power-Stick 2-fach 

79.— 

32 KB-Ram ext. 

298,— 

ExBasic deutsch 

235,— 

32 KB+Centr. ext. 

398,— 

ExBasic 11 plus 

310 — 

Assemblerkurs ASEM-4 

98,— 

Terminal-Emulator II 

135,— 

Mini-Assembler 

149,— 

TE-11 Handbuch deutsch 18,— 

Akkustikkoppler FTZ 

199,— 

Text-Sprachausgabe deutsch 

Editor Assembler 

i sö¬ 

mit Diskette 

49,— 

ASM-Handbuch deutsch 

ge,— 

TI 99/4A intern 

38 — 

Eycove Foth Disk, mit 


Freddy Disk 

59,— 

deutschem Handbuch 

98,— 

The Mine Disk 

55,— 

UCSD Pascal komplett 

998,— 

LOGO II 

320,— 

Tl-Writer deutsch 

320,— 

Multiplan 

320,— 


Diverse Spielmodule aus USA, von ATARI und von Texas 
Instruments 

Ständig über 100 verschiedene Artikel am Lager. Fordern Sie 
unsere Preisliste an. 
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CLUB- ECKE 


Die 

Club- 

Ecke 

In der letzten Zeit haben einige 
Gubs es vorgezogen, statt sich hier 
auf der Clubseite vorzustellen, in 
den Kleinanzeigen auf sich aufmerk¬ 
sam zu machen. Dies, obwohl doch 
hier jedem Gub wesentlich mehr 
Platz zur Verfügung steht. Sicherlich 
hatten wir bei noch zweimonatli¬ 
cher Erscheinungsweise einige Male 
eine kleine Warteliste für die Club- 
seite. Diese ist aber nun durch das 
monatliche Erscheinen abgebaut 
und so ist dieser Platz doch besser 
für alle Clubnachrichten geeignet 
als die Kleinanzeigen. Dabei wollen 
wir ja auch nicht nur allgemeine 
Clubvorstellungen veröffentlichen, 
sondern sind auch an Erfahrungs¬ 
berichten von der täglichen Club- 
arbeit interessiert. Andere Gubs 
können doch nur von den Erfah¬ 
rungen der schon längere Zeit be¬ 
stehenden Clubs lernen. Schlechte 
Erfahrungen sind da genauso nütz¬ 
lich wie positive. 

Beginnen wollen wir heute wieder 
einmal mit einem Aufruf zur Club¬ 
gründung: 

Wer hätte Lust, bei einem überregio¬ 
nalen TI 99/4A Club mitzumachen. 
Der jährliche Clubbeitrag beträgt 
10,— DM. Ein für die Mitglieder 
frei verfügbarer Software-Pool soll 
auf gebaut werden (nur selbstge¬ 
schriebene Software). Ca. alle 2 
Monate soll ein von den Mitgliedern 
gestaltetes Magazin auf Kassette 
herausgebracht werden. Nähere 
Informationen erhaltet ihr gegen ei¬ 
nen frankierten Rückumschlag. 

Wenn ihr eigene Ideen zur Gestal¬ 
tung des Clubs habt, schreibt sie 
bitte: 

Thomas Klein, Am Ring 18, 

6759 Wolf stein/Pfalz 

Die nächste Gubvorstellung erreich¬ 
te uns aus dem Raum Frankfurt/ 
Darmstadt: 

Wir sind eine Gruppe von derzeit 
4 Personen, die sich in ihrer Freizeit 
mit Programmierung und Hardware 
des TI 99/4A beschäftigen. 

Da es im Großraum Frankfurt/ 
Darmstadt keinen Club gibt, der sich 
ausschließlich dem TI 99/4A wid¬ 
met, haben wir den Entschluß ge¬ 
faßt, diesen Mangel abzustellen. 

Mit dieser Vorstellung hoffen wir, 
auch andere Tl-User in diesem 
Raum anzusprechen. Wir sehen den 


Sinn eines solchen Clubs u.a. in 
dem Gedankenaustausch, der ge¬ 
meinsamen Entwicklung von Hard- 
, und Software sowie der gegenseiti¬ 
gen Hilfe und dem persönlichen 
Kontakt. Ein Mitgliedsbeitrag ist 
nicht geplant, deshalb auch vorerst 
keine Clubzeitschrift. Da wir aber 
nicht wissen, wie sich die Sache an¬ 
läßt, kann sich noch vieles an der 
Struktur ändern. Falls jemand In¬ 
teresse hat, kann er (sie) sich an fol¬ 
gende Adresse wenden: 

Christopher Winter, Rembrücker 
Weg 44, 6053 Obertshausen. 

Ein weiterer Club ist in Mönchen¬ 
gladbach beheimatet und sucht 
dringend Mitglieder: 

Wir, der Technomania-Club, suchen 
verzweifelt Tl-User im Raum Mön¬ 
chengladbach. Trotz mehrerer An¬ 
zeigen sind wir bis jetzt erst 2 Leu¬ 
te. Sollten es mehr werden, so ha¬ 
ben wir einiges vor: der Schwer¬ 
punkt des Clubs sollte auf dem 
Software-Sektor liegen ( TI- und 
X-Basic). Auch eine Clubzeitschrift 
und eine Programmzentrale (Tausch) 
soll entstehen. Kontakte mit schon 
bestehenden, anderen Tl-Clubs in 
Deutschland werden gerne geknüpft 
(z.B. überregionaler Softwareaus¬ 
tausch). Ein regelmäßiges Clubtref¬ 
fen sollte auch stattfinden. Wann, 
wo und wie dies alles passiert, wird 
bei ausreichender Mitgliederzahl 
ausgemacht. Interessenten (auch 
Clubs) bitte melden, am besten mit 
Telefonnummer bei: 

Marco Scheloske, Von-Groote-Str. 
154, 4050 Mönchengladbach 1 oder 
bei: 

Heinz-Josef Eckers, 
Hermann-Hesse-Str. 7, 4050 Mön¬ 
chengladbach 1. 


Zum Schluß für heute noch eine 
Meldung vom TI 99er Workshop, 
in deren Reihen wohl ein Werbe¬ 
fachmann sitzen muß, denn dort hat 
man wohl begriffen, wie man es 
machen muß, um immer wieder in 
die Clubseite zu kommen: 

Da die Nachfrage zur Mitarbeit in 
unserem Workshop, nicht zuletzt 
durch die Veröffentlichungen in der 
TI-REVUE sehr groß geworden ist, 
haben wir unsere Kontaktadressen 
auf verschiedene Themenbereiche 
auf geteilt. Für Hardwarefragen aller 
Art ist ab sofort folgende Kontakt¬ 
adresse eingerichtet: TI 99 Work¬ 
shop Rheinland, c/o Mike Dean, 
NeußerStr. 47, 5000 Köln 1. Für 
allgemeine Anfragen und Software 
ist weiterhin zuständig: 

Mike Heuser, Karl-Marx-Allee 4 7, 
5000 Köln 71. 



Von GPL 

GPL (Graphics Programming 
Language), wie Texas Instruments 
das bezeichnet, das war wohl das 
große Geheimnis des TI 99/4A. Bei 
der Konstruktion des TI 99/4A sah 
Texas Instruments spezielle Bau¬ 
steine, die Grom’s vor. Diese Bau¬ 
steine arbeiten in der sogenannten 
„Memory-mapped“ Technik, d.h. 
sie beinhalten einen internen Zäh¬ 
ler, der durch gezieltes Schreiben 
über die Datenleitungen auf be¬ 
stimmte Werte gesetzt werden kann. 
Dieser Wert wird dann als Adresse 
für ein ROM (nur Lesespeicher) 
verwendet. Und der Inhalt der da¬ 
mit adressierten Speicherstelle in 
dem ROM kann anschließend aus¬ 
gelesen werden. Bei jedem Lesevor¬ 
gang erhöht sich der Zählerstand au¬ 
tomatisch um 1, so daß nacheinan¬ 
der der Inhalt der ROM’s gelesen 
werden kann, ohne daß jedesmal 
neu die Adresse in den Zähler ge¬ 
schrieben werden muß. 

Nun sah Texas Instruments im Be¬ 
triebssystem eine spezielle Pro¬ 
grammiersprache namens GPL vor, 
deren Programme nur in diesen 
GROM's enthalten sein müssen. Die¬ 
se Sprache ist sehr prozessornah und 
ähnelt damit der Maschinensprache 
(Assembler) des TMS 9900 Prozes¬ 
sors. Damit wollte Texas Instruments 
die Software-Entwicklung (Module) 
von Fremdfirmen wohl unterbinden 
bzw. von Lizenzen durch Texas 
Instruments abhängig machen. Die¬ 
ses Vorhaben ist ja auch lange ge¬ 
lungen, jedoch in lptzter Zeit durch 
die entsprechenden Veröffentlichun¬ 
gen völlig unterlaufen worden. Wir 
haben in der TI-REVUE eine Mo¬ 
dulplatine vorgestellt/auf der durch 
ein paar TTL-IC’s und EP ROMS die¬ 
se GROM’s simuliert werden. Damit, 
und mit der Veröffentlichung aller 
GPL-Befehle in dem Buch „TI 99/ 

4A Intern“, war der Anfang ge¬ 
macht, auch diese Programmierspra¬ 
che des TI 99/4A allgemein zugäng¬ 
lich zu machen. 

Nun ist es ja aber sehr zeitraubend, 
ein Programm in GPL zu schreiben 
und zur Fehlersuche jeweils in ein 
EPROM zu brennen. Also war die 
Entwicklung von GRAM’s notwen¬ 
dig. Diese konnten und wurden sehr 
einfach aus der Modulplatine entwic¬ 
kelt, aber es ist nun auch schon eine 
„große“ Lösung, eine GRAM-Karte 
für die P-Box angekündigt. Damit 
ist nun, zusammen mit den erwähn¬ 
ten GPL-Assemblern, ein komplet- 
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TEST 


GRAMS & GROMS 

Eigentlich sollte dieser Bericht ein Test von zwei neu 
auf den Markt gekommenen GPL-Assemblem werden. Schon bald wurde 
allerdings klar, daß eine Besprechung nur dieser Programme, 
zur jetzigen Zeit wenig Sinn hat, sondern daß zuerst einmal über die 
Möglichkeiten, die GPL bietet, gesprochen werden muß. 


tes Entwicklungssystem für GPL- 
Programme vorhanden. Es können 
also einfach neue, eigene Module 
entwickelt werden, die auch wirklich 
die ganzen Möglichkeiten des TI 99/ 
4A ausnützen. Erfahrene Maschi¬ 
nenprogrammierer werden dem nun 
entgegen halten, daß das in Assemb¬ 
ler doch auch geht. Da ist zum Bei¬ 
spiel auf den umständlichen Zugriff 
auf den Kassettenrekorder hinzu¬ 
weisen; in GPL geht das viel ein¬ 
facher. Und dann ist da noch das . 
wichtigste: Assemblerprogramme 


Ein Prototyp der im Text erwähnten 
GRAM-Karte für die P-Box 


benötigen die Speichererweiterung 
(abgesehen von den nicht auf jeden 
TI99/4A benutzbaren ROM-Modu- 
len). GPL-Module aber können, so¬ 
fern sie nicht aus anderen Gründen 
eine Speichererweiterung benötigen, 
nur auf der Konsole arbeiten! 

Auch können in GPL einfach Basic- 
Erweiterungen geschrieben werden. 
Kommen wir nun wieder auf die 
GPL-Assembler zurück. In der Bun¬ 
desrepublik Deutschland werden 
momentan 2 verschiedene Assemb¬ 
ler angeboten: Einmal das GPL- 
Assembler/Disassembler-Paket der 
Firma Reis, Bullay, zum Preis von 
149,— DM und zum anderen ein 
GPL-Assembler von der Firma Elek¬ 


tronik Service, Kaarst zum Preis von 
99,— DM. Beide Assembler sind un¬ 
terschiedlich, bleiben wir aber erst 
einmal beim Disassembler. Dieser 
erlaubt die Ausgabe des Listings auf 
Drucker, Diskette oder Bildschirm. 
Wahlweise kann das Listing die 
byteweise Ausgabe des hexadezima¬ 
len Werts, ein Hexdump oder eben 
das disassemblierte in den GPL- 
Mnemonics dargestellte Programm 
enthalten. Dabei können GPL-Pro- 
gramme nicht nur aus den GROM’s, 
sondern auch aus VDP-RAM oder 


CPU-RAM disassembliert werden. 
Dieser Zusatz ist sehr nützlich, wenn 
man auch ohne GRAM’s z.B. 
GPL-Programme nur zum Disassemb- 
lieren von Diskette in den Speicher 
lädt. Ebenfalls wichtig bei Disassemb¬ 
ler ist die Funktion, daß nach Auf¬ 
ruf eines Unterprogramms mit dem 
GPL-Befehl CALL ein Byte über¬ 
sprungen werden kann. Dieses wird 
ja sonst durch den GPL-Befehl 
FETCH gelesen, hat mit dem Pro¬ 
gramm selber ja nichts zu tun und 
würde sonst den Disassembler völlig 
durcheinander bringen. 

Beide Assembler benötigen als Quell¬ 
code eine Textdatei im DIS/VAR 
80 Format, wie sie mittels des Edi¬ 
tors vom Editor/Assembler-Modul 
und des Tl-Writers erstellt werden 
können. Die Ausgabe erfolgt beim 
Assembler der Firma Reis wahlweise 


als program-image oder als DIS/FIX 
80 Datei. Der Assembler des Elek¬ 
tronik-Service erstellt dagegen 
Tagged-Object-Code, wie es auch das 
Editor/Assembler-Modul macht. 
Beide GPL-Programme in absoluter 
Adressierung erstellen. 

Relocatibler Object-Code ist ja man¬ 
gels eines geeigneten Laders auch 
nicht sinnvoll. 

Ebenfalls gemeinsam ist beiden GPL- 
Assemblem, daß sie alle GPL-Befeh- 
le umwandeln, allerdings ist bei 
demjenigen der Firma Reis beim 
FMT-Befehl eine Einschränkung 
zu machen: Hier müssen die Unter¬ 
befehle mittels der Anweisung 
BYTE eingegeben werden. 
Hinsichtlich der Pseudo-Befehle 
bzw. Direktiven kennt der GPL- 
Assembler der Firma Elektronik- 
Service aber erheblich mehr Funktio¬ 
nen, die das Arbeiten erleichtern. 

Die Verwendung von Labels ist bei 
beiden Assemblern möglich, aller¬ 
dings dürfen die Labels bei dem der 
Firma Reis nur für Sprung- bzw. 
Verzweigungsadressen benutzt wer¬ 
den. Berechnungen im Adressfeld 
sind nur bei dem GPL-Assembler 
der Firma Elektronik-Service 
möglich. 

Will man ein Fazit über die beiden 
Programme ziehen, so ist zu sagen, 
daß der GPL-Assembler der Firma 
Elektronik-Service sehr komfortabel 
ist, in seiner Ausführung dem nor¬ 
malen TMS 9900 Assembler des 
TI 99/4A ähnelt. Er läuft auch auf 
dem Editor-Assemblermodul und 
wird einfach anstelle des normalen 
Assemblers gestartet. Das Paket der 
Firma Reis umfaßt ja nicht nur ei¬ 
nen GPL-Assembler, sondern auch 
einen Disassembler, welches schluß¬ 
endlich zu berücksichtigen ist. 

Dieser Assembler ist nicht ganz so 
komfortabel, dafür ist der Disassem¬ 
bler bisher in dieser Form einzig auf 
dem Markt. Benötigt wird hier das 
Editor/Assemblermodul oder das 
Extended Basic. Beide Assembler 
benötigen zu dem jeweiligen Modul 
noch Disk-Laufwerk und Speicher¬ 
erweiterung. Ein Drucker ist ganz 
bestimmt sinnvoll. 

Beide Assembler wurden mit kur¬ 
zen Beispielen auf ihre Richtigkeit 
überprüft und zeigten keine Fehler. 
Allerdings muß hier angemerkt wer¬ 
den, daß eine Prüfung auf vollstän¬ 
dige Fehlerfreiheit aus Gründen des 
Aufwandes nicht durchgeführt wer¬ 
den konnte. Zu guter Letzt bleibt 
noch anzumerken, daß alle dieser 
Programme in TMS 9900 Assemb¬ 
ler geschrieben sind und entspre¬ 
chend schnell arbeiten. 

Heiner Martin 
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TIPS & TRICKS 


32 muntere Kilos für 
ganze 75 D-Märicer! 


Speichererweiterung für den TI ist ein immer 
wieder auftauchendes Thema. Das mag daran liegen, 
daß auf dem Weg zur Assemblerprogrammierung 
immer die Hürde Speichererweiterung 
zu nehmen ist. Es sei denn, man hat ein Mini- 
memory und beschränkt sich auf die darin enthal¬ 
tenen 4 kB Speicherraum. Die 32 kB-Erweiterung 
war bisher aber auch eine kostspielige Anschaffung. 

Unter 300,— DM war wohl kaum etwas * 
zu erhalten. Inzwischen hat sich der Preis von 
Speicher-IC’s aber erheblich verringert. Immerhin 
sind die 5 IC’s dieser Schaltung für insgesamt 
weniger als 75,— DM erhältlich. 


Puffer für Adress-, Daten- 
und Steuerleitungen 
wurden in dieser Schal¬ 
tung bewußt weggelassen, 
da die Adress- und Steu¬ 
erleitungen in der Kon¬ 
sole vor dem Bus-Ausgang 
gepuffert sind. Die Da- 
tenleitungen der RAM 
sind nur bei read/write- 
Zyklen durchgeschaltet, 
ansonsten hochohmig. 


Schaltungsbeschreibung 

Die Schaltung setzt sich 
aus Speicher, Decoder 
und Standby-Versorgung 
zusammen. 

Als Speicher werden 4 
statische RAM 6264 LP 
15 verwendet. 

Statische RAM sind ja be¬ 
kanntlich leichter zu 
handhaben als dynami¬ 
sche RAM, wodurch au¬ 
ßer dem Decoder keine 
weiteren Bausteine für 
den Betrieb erforderlich 


sind. Die Zusammenschal¬ 
tung der RAM und der 
Anschluß an den TI-Bus 
ist wohl kaum anders 
möglich. Als Decoder 
wird ein 74 HC 138 ver¬ 
wendet. Dieser zeichnet 
sich gegenüber dem 74 LS 
138 durch eine erheblich 
geringere Stromaufnahme 
aus (wichtig für den 
Standby-Betrieb). Der De¬ 


coder bildet aus den 
Adressierungen A0, Al* 
und A2, verknüpft mit 
MEMEN, die 8 kB-Be- 
reiche für die einzelnen 
RAM. 

Die Standby-Schaltung 
soll die RAM auch nach 
Ausschalten der Konsole 
weiter mit Spannung ver¬ 
sorgen, so daß gespeicher¬ 
te Daten auch über Wo¬ 
chen und Monate erhal¬ 
ten bleiben und weiter ver¬ 
wendet werden können. 
Für den Standby-Betrieb 


benötigen die RAM’s laut 
Hersteller mindestens 2 V. 
Daher muß die Batterie¬ 
spannung mindestens 
2,4 V sein, da an der Ent¬ 
koppeldiode Dl (Germa¬ 
niumdiode) ca. 0,3 bis 
0,4 V verloren gehen. An¬ 
dererseits sollte die Batte¬ 
riespannung 4,0 V nicht 
überschreiten, denn sie 
muß unterhalb des Wer¬ 
tes der Betriebsspannung¬ 
bleiben (die 5 V verrin¬ 
gern sich noch um etwa 
0,6 V, die an D2 abfallen). 
Andernfalls wird die Bat¬ 
terie trotz anliegender Be¬ 
triebsspannung entladen. 
Mit RI, R2, R3, D3 und 
TI wird der G2-Eingang 
des Decoders auf‘HIGH‘ 
gelegt, sobald die 5 V von 
der Konsole fehlen. Der 
Decoder wird hierdurch 
blockiert und sperrt über 
die CS-Eingänge die RAM’s. 
Dadurch werden einer¬ 
seits Zugriffe ins RAM un- - 
terdrückt. andererseits die 
Stromaufnahme der RAM’s 
erheblich gesenkt. Bei • 
meinen Speichererweite¬ 
rungen habe ich im Stand¬ 
by-Betrieb eine Stromauf¬ 
nahme von etwa 5 uA ge¬ 
messen (Batterie 2,4 V). 
Damit dürfte eine Batte¬ 
rie ganz schön lange hal¬ 
ten. 

Falls ein Akku, statt der 
Batterie eingesetzt wird, 
muß RI eingelötet wer¬ 
den. Über RI wird der 
Akku nachgeladen. Der 
Widerstandswert ist abhän¬ 
gig von der Akkukapazität. 
Er sollte so dimensioniert 
werden, daß ein Lade¬ 
strom von 1/10 der Akku¬ 
kapazität fließt. 

Die Pull-Up-Widerstände 
R5 und R6 sowie die . 
Pull-Down-Widerstände 
S1 bis S3 sind nicht unbe¬ 
dingt erforderlich, wurden 
jedoch vorsichtshalber 
eingeplant. 


Bestückung und 
Anschluß 


Die Bestückung geht aus 
dem Bestückungsplan her¬ 
vor. Die Anschlußpunkte 
der Platine sind für eine 
34polige Pfostenfeld- 
Steckverbindung mit 
Flachbandkabel vorgese¬ 
hen. Das Kabel kann aber 
auch direkt angelötet wer¬ 
den. An den Stecker zum 
TI-Bus messen die einzel¬ 
nen Adern des Kabels, 
wie aus dem Schalt- und 
Bestückungsplan hervor¬ 
geht, angelötet werden. 
Hier noch ein Tip zum 
Einbau eines durchgereich¬ 
ten Busses in die Speicher¬ 
erweiterung. In Elektro¬ 
nik-Fachgeschäften gibt 
es eine Platine (RTO Nr. 
6602 ca. 10,— DM) wo¬ 
mit sich der Bus einfach 
verlängern läßt. An eine 
Stirnfläche der Platine ist, 
wie aus Bild 1 ersichtlich, 
der 2x22polige Direkt¬ 
stecker anzulöten. In der 
Mitte der Platine sind alle 
Leitungen an Lötpunkten 
zugängl^h. Die Platinen¬ 
länge ist 65 mm. Sie paßt 
also genau quer unter 
oder über die Speicher¬ 
platine. 

Erwähnenswert ist viel¬ 
leicht noch, daß ein Ein¬ 
bau der Speicherplatine 
in die Konsole möglich ist. 
Allerdings ist das Anlöten 
der 34 Leitungen auf der 
Rechnerplatine eine haar¬ 
sträubende Angelegenheit 
und sollte wirklich nur 
von richtigen Elektronik- 
Freaks durchgeführt wer¬ 
den. Immerhin haben bei 
bisher 3 Versuchen alle 
Rechner diesen Eingriff 
„lebend“ überstanden. 

Test 


Nach Fertigstellung der 
Speichererweiterung 
kommt der große Moment 


Technische Daten: 
Speicher 

statische RAM 8K (8192*8bit) 

Speicherkapazität 

32 kB (32768 Byte) 

Decodierter 

>2000...>3FFF (8KB) 

Adressbereich 

>A000...>FFFF (24KB) 

Spannungsversorgung 

5 V aus der Konsole 

Standby-Spannung 

Batterie oder Akku 

Stromaufnahme 

2,4 bis 3,6 V 

Betrieb: 15...30 mA 

Masse 

Standby: 3... 10 uAÜ 
ca. 105*65*15 mm 
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das erste Einschalten. 

Nach Erscheinen des Titel¬ 
bildes und Auswahl des 
XBasic-Modus, kann als 
erster Test ‘SIZE’ eingege¬ 
ben werden. Der Compu¬ 
ter müßte sich daraufhin 
mit M 3928 BYTES OF 
STACK FREE* 
‘24488 BYTES OF 
PROGRAM 
SPACE FREE* 
melden. 

Ist soweit alles okay, soll¬ 
ten alle Bereiche der 
Speicherkarte durch Ein- 
und Auslesen von Daten 
mit CALL LOAD(...) und 
CALL PEEK(...) getestet 
werden (vorher muß 
CALL INIT eingegeben 
werden). Wenn alle Tests 
erfolgreich verlaufen sind, 
hat Ihr TI jetzt 32 kB 
mehr Speicherraum. 

Haben Sie auch eine 
Standby-Batterie einge¬ 
baut, läßt sich ein einge¬ 
ladenes Basic-Programm 
nach Aus- und Einschalten 
der Konsole wieder zu¬ 


gänglich machen, indem 
vor dem Ausschalten mit 
CALL PEEK (-31952,Al, 
A2,B1,B2) die Daten aus¬ 
gelesen und notiert wer¬ 
den. Nach dem Einschal¬ 
ten der Konsole müssen 
diese Daten dann mit 
CALL LOAD (-31952, 
A1,A2,B1,B2,“ ”,-25,0) 
wieder eingegeben werden. 
Danach kann man RUN 
oder LIST eingeben und 
abwarten was sich tut. 

Thomas Rademacher 

Anm.d. Red.: Statische 
8 k-RAM’s sind leider am 
TI 99/4A nicht immer 
ohne Probleme zu betrei¬ 
ben. Dies liegt daran, daß 
beim TI 99 die Adresslei- 
tungen geändert werden, 
ohne daß der Speicherbau¬ 
stein deselektiert wird 
(CE und OE bleiben ak¬ 
tiv). Leider können hier 
keine weiteren Empfehlun¬ 
gen hinsichtlich der spe¬ 
ziellen Type des RAM-ßau- 
steines gegeben werden, 
da dieses Verhalten auch 


schon bei unterschiedli¬ 
chen Serien eines Herstel¬ 
lers auftraten. Die über¬ 
wiegende Mehrzahl der 
IC’s arbeitet aber korrekt. 
Im Schaltbild sind OE . 
und CE verbunden. Dies 


kann ebenfalls bei Ersatz¬ 
typen zum 6264 zu Fehl¬ 
funktionenführen. Hier 
ist dann OE mit DBIN zu 
verbinden, wobei das 
Signal DBIN zusätzlich zu 
invertieren ist. 




























































IMMER NEU UND AKTUELL FÜR TI 99/4A 


EXTENDED-BASIC (Mechatronic) 

mit deutschem Handbuch 199.90 

EXTENDED-BASIC II PLUS mit deutschem Handbuch 299.— 

= Extended-Basic + Grafik Extended-Basic (Apesoft) in 1 Modul 

Umtauschaktion 

Bei Bestellung eines EXTENDED-BASIC II PLUS vergüten wir Ihnen DM 70.— 
bei kostenfreier Zusendung eines original amerikanischen Extended-Basic- 
Moduls (elektrisch/mechanisch einwandfreier Zustand!!) 

Sie zahlen nur noch 229.— 

Umbauaktion (gilt nur für deutschen Lizenznachbau „Mechatronic"). Wir ma¬ 
chen aus Ihrem EXTENDED-BASIC ein EXTENDED-BASIC II PLUS mit deut¬ 
schem Handbuch für nur 98.— 

32-k-RAM-ERWEITERUNG mit Centronic-Interface, Kunststoffgehäuse 190 
x 110 x 60 mm zum seitlichen Anstecken an den Bus. der Bus wird nach 
rechts durchgeschleift, mit 5-V-Steckernetzteil 289.50* 

Unser Paketpreis-Angebot 

EXTENDED-BASIC II PLUS + 32-k-RAM-ERWEITERUNG. ohne 
Centronic-Interface für nur 499.50* 

mci ii 128-k-RAM-ERWEiTERUNG. mit Centronic-Interface und 
5-V-Steckernetzteil 595.— 

Die Weltneuheit: 128 kB — GRAM Preis ca. 750 — 

Lieferbar etwa Janur 1986 

Preise in DM/Stück inkl. MwSt. • Technische Änderungen Vorbehalten 
Versand gegen Nachnahme oder Vorauskasse. 


4-FARBEN-PRINTER-PLOTTER PP-A 4. Centronic-Schnittstelle. 
DIN-A 4-Format, Direktanschluß an 32-k- oder 128-k-RAM-Er- 
weiterung 699.— 

ANSCHLUSSKABEL 

von 32-k- oder 128-k-RAM an PP-A 4 68.— 

SLIM-LINE-LAUFWERK 5,25“, 500-k-Byte-DS/DD 
(z. B. TEAC FT 55 B) 399,90 — 

EINBAUSATZ für 2 Laufwerke in original Tl-P-Box 95.— 

DISC-STEUERKARTE (CorComp), DS/DD, für max. 

4 Laufwerke 635.— 

NEU! QUICK-DISC-FLOPPY (im Gehäuse), zum Direktanschluß an die 

Konsole, keine Steuerkarte erforderlich, 128-k-Byte-DS, für 
2,8"-Disketten, mit 5-V-Steckernetzteil, identisch mit der bekann¬ 
ten MSX-Version 598.— 

SFHR DISKETTEN 2,8", 10er-Pack 95.— 

■* TI-MAUS — die schnelle und komfortable Cursorsteuerung mit 

NEU Software auf 5.25"-Diskette, mit 5-V-Steckernetzteil 296.— 

VIERSPANNUNGS-SCHALTNETZTEIL, +5 V. 4 A/±12 V, 0.3 A/ 
N £ M -24 V ‘ °' 3 primär getaktet, 35 Watt, MOS-Fet-Technik, extrem 

klein (80x125x32 mm), offene Bauweise, ideal zum Betrieb von 
Druckern, Monitoren etc. 345.— 

* Preissenkung — dank großer Nachfrage! 

albs-Alltronic G. Schmidt • Postfach 1130 ■ 7136 Otisheim 
Tel. 0 70 41 / 27 47 • Telex 7 263 738 albs 
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DFU-Tips 

Heute möchte ich über den Filetransfer vom TI zu 
einer MB berichten. Wir wollen einen Text, der wie 
folgt aussieht, zu einer MB senden: 

V 1.0 Achtung Tl-User 

Verkaufe TI-Basic und TI-XBasic Programme. 

Suche E/A oder MM Programme. 

Liste anfordem unter Tel.Nr.:.... 

Dieser Text sollte in einem Intemal/Variablen 80 
Format sein, da ein solcher File von dem Auto Log- 
on direkt übertragen werden kann. 

Der Auto Log-on File wird automatisch abgefragt 
und falls gefunden, sofort übertragen. Dies kann 
beim Auswählen des 3. Menüpunktes von der 
Hauptwalliste des TE II geschehen. Falls man in ei¬ 
ner MB momentan tätig ist, muß man den TI ab¬ 
schalten und wieder einschalten, damit der Auto 
Log-on File übertragen werden kann. 

Wir gehen davon aus, daß der File gerade übertra¬ 
gen wurde und die MB diesen Text nicht angenom¬ 
men hat. Dies hat folgenden Grund. Das Modul 
TE II braucht am Anfang eines Satzes einen Mar¬ 
ker, damit das Modul „weiß“, daß der Satz gesen¬ 
det werden kann, damit das Modul „weiß“, wann 
der Satz zu Ende ist, braucht es ebenfalls einen 
Marker. Dies würde so aussehen: 


V 1.1 

—Startmarker (Sende Text) 

/ Endmarker (Textende) — 

/ ' 


I 


\ 


1 Achtung Tl-User CR 

1 Verkaufe TI-Basic und TI-XBasic Programme. CR 
1 Suche E/A oder MM Programme. CR 

1 Liste anfordem unter Tel.Nr.:. CR 


Jetzt kann es Vorkommen, daß eine MB nach jeder 
Zeile, die sie empfängt, ein Steuerzeichen sendet. 

Um dieses Steuerzeichen zu empfangen, muß der TI 
einige Zeit Pause machen, um dann wieder eine Zei¬ 
le zu senden oder dieselbe Zeile zu wiederholen. 
Dieses Problem können wir so lösen: 

Dazu sehen wir uns das Beispiel V 1.1 an. Wir ha¬ 
ben dem TE II „gesagt“, wann es einen Text senden 
soll und wann der Text bzw. Zeile zu Ende-ist. 

Jetzt müssen wir eine Warteschleife schaffen, damit 
eventuelle Steuerzeichen empfangen werden können. 
Dies würde so aussehen: 


V 1.2 

1 Achtung Tl-User CR 

2 * <ASC II Code 42 siebe Erläuterung > 

1 Verkaufe TI-Basic und TI-XBasic Programme. CR 

2 * ™ 

1 Suche E/A oder MM Programme. CR 

2 * ^ 

1 liste anfordem unter Tel.Nr.:... CR 

2 * 

Nun taucht im Beispiel V 1.2 eine 2 und ein 
Asterix > ASCIII Code 42<auf. 

Hier die Erläuterung: 


Die>2< bedeutet für das Modul> Warte auf ein 
Steuerzeichen der Gegenstelle<. Wobei ich hier 
noch kurz erwähnen möchte, daß die MB immer der 
>Master< ist und der Anrufer der >Sklave<. D.h. 


der Anrufer macht im Prinzip nur das was die MB 
von ihm verlangt. 

Weiter mit der>2< und dem Asterix.Das Modul 
wartet, falls wir eine >2< in einer Zeile haben, auf 
ein Steuerzeichen der MB. Das Modul „weiß“ an 
dieser Stelle nicht, wie lange es warten soll. Dazu 
dient uns das Asterix. 

Zum besseren Verständnis, eine Tabelle aus der die 
Verzögerungszeit zu ersehen ist. 


ASC II Code 

Zeichen 

Realzeit 

6 

REDO 

0,1 

12 

PROC’D 

0,2 

18 

44 99 

0,3 

24 

44 99 

0,4 

30 

44 99 

0,5 

36 

S 

0,6 

42 

* 

0,7 

48 

0 

0,8 

54 

6 

0,9 

60 

< 

1,0 

66 

B 

U 

72 

H 

1,2 

78 

N 

1,3 


Wir sehen, je höher der ASCII Code, desto länger 
ist die Wartezeit des Moduls. 

Noch eine kurze Anmerkung zur Wartezeit: 

Es wäre ratsam, daß die Wartezeit nicht über 42 sec. 
geht, da viele MB*s ein relativ kurzes >timeout< ha¬ 
ben. Der ASC II Code >*< hat sich hierbei gut 
bewährt. 

Es sei zu hoffen, daß jetzt viele Tl-User mit dem 
TE II Modul besser zurecht kommen als vorher. 

Martin Miosga 


Strings mit 
Charakter 


Wie oft habe ich mich schon geärgert, 
wenn in einem Definitionsprogramm für Charakter 
zwar die definierten Zeichen „gesaved“ werden 
aber nicht direkt in ein Programm eingebaut werden 
können! Dieses Programm habe ich einmal 
angepackt und bin zu folgender Lösung für den 
Tl-99 plus Diskettenlaufwerk und Extended Basic 
(eventuell mit 32 K-Erweiterung) gekommen. 


Jeder Computer, der als 
Programmiersprache 
BASIC besitzt, verfugt 
über sogenannte Basic- 
Token. Das sind alle Be¬ 
fehle, die der Computer 
im Basic hat (z.B.: 
PRINT, RUN ...). 

Diese kann man alle über 
CHR$ ansprechen und 
auf Disk saven. Um diese 
auf Diskette saven und 
später auch bequem ein¬ 
iesen zu können, muß- 
man am besten ein For¬ 
mat für den OPEN-Befehl 
wählen, das dies erlaubt. 
Vom Diskettenlaufwerk 
steht hier der Befehl 


“MERGE“ zur Verfügung, 
der es erlaubt Programm¬ 
zeilen in den Arbeitsspei¬ 
cher zu laden, ohne daß 
das im Speicher befind¬ 
liche Programm gelöscht 
wird (höchstens, wenn 
sich die Zeilennummem 
schneiden!). 

Nun zum Aufbau des 
Merge-Formats: _ 

Dateien im Merge-Format 
sind im Datentyp Display/ 
Variable 163 gespeichert. 
Display bedeutet, daß die 
Datei aus lesbaren ASCII- 
Zeichen besteht. 
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Variable 163 gibt die An¬ 
zahl der Bytes pro Daten¬ 
satz an. Im Gegensatz zu 
Fixed-Dateien (alle Daten¬ 
sätze haben gleiche Länge), 
können diese unterschied¬ 
liche Länge haben (bis zu 
163 Bytes!). 

Output gibt nur an, daß 
etwas ausgegeben werden 
soll (hier speziell auf 
Diskette!). 

Im Programm würde das 
ganze dann folgender¬ 
maßen aussehen: 

10 OPEN#l :“DSK1. 
TEST“,OUTPUT,DIS¬ 
PLAY,VARIABLE 163 
Nachdem man die Datei 
eröffnet hat, muß man 
einen kleinen String de¬ 
finieren, der folgender¬ 
maßen aufgebaut ist: 

I) Die Zeilennummer: Man 
Man benötigt zwei CHR§ 
für die Zeilennummer. 

Der erste CHR§ ist das 
High-Byte der Zeilennum¬ 
mer (High-Byte, d.h. es 
wird mit 256 multipli¬ 
ziert), der zweite CHR§ 
ist das Low-Byte (es wird 
nicht multipliziert!). 
Möchte man jetzt z.B. die 
Zeilennummer 31500 er¬ 
halten, so teilt man 31500 
durch 256 — man erhält 
123,04... (die Nachkom¬ 
mastellen einfach wegfal¬ 
len lassen). 123 ist also 
das High-Byte). Zum Be¬ 
rechnen des Low-Bytes 
rechnet man: 
31500-123*256 und 
erhält 12! 

II) Das Token: Der dritte 
CHR§ gibt das Token an, 
daß man verwenden 
möchte (siehe Liste). Wir 
wählen für unseren Test 
ein “!“ aus - dies hat 
den Wert 131. Der Token 
wird nur dazu verwendet, 
damit es im Programm ei¬ 
ne normale REM-Zeile er¬ 
gibt und keine Fehlermel¬ 
dung auftritt. 

Ihnen wird bestimmt auf- 
gefallen sein, daß einige 
Token anscheinend feh¬ 
len, dies ist aber nicht der 
Fall. Manche CHR§-Wer- 
te haben kein Token zu¬ 
geordnet. 

III) Nun kommt nur noch 
eine Laufvariable, die den 
eigentlichen Token an¬ 
gibt — wir nehmen eine 
FOR...NEXT-Schleife von 


129 bis 255. Warum erst 
ab 129? Ganz einfach, 
denfi erst ab 129 stehen 
die definierten Charakter 
(123 ABC...). 

Das Programm, es stellt 
übrigens alle Token noch¬ 
mals dar, sieht dann so 


Das Programm generiert 
wiederum ein Programm, 
das nur aus “!“ und nach¬ 
gestellten Basic Token be¬ 
steht — dieses kann man 
nun mit MERGE DSK1. 
TEST einiesen und listen. 


aus: 

20 FOR 1=129 TO 255 
30 A§=CHR§(0)&CHR§ 
((1-126)* 10)&CHR§ 
(131)&CHR§(I)& 
CHR§(0)&CHR§(0) 

40 PRINT #1:A§ 

50 NEXT I 

60 PRINT #1:CHR§(255) 
&CHR§(255) 

70 CLOSE #1 
80 END 

In Zeile 60 wird die 


Spezielle Anwendungen 

Möchte man nun aus ei¬ 
nem Programm (z.B. Zei¬ 
chendefinitionspro¬ 
gramm) die Charakter in 
Form von Data’s abspei- 
chem, geht man so vor: 

10 OPEN# :“DSK1. 
DATA“,OUTPUT, 
DISPLAY,VARIABLE 
163 

20 FOR I=CHARTSTART 


Print# 1-Anweisung nur TO CHAREND 

dazu verwendet, die Merge- 30 CALL CHARPAT 
datei, die im Programm (I,B§) 

generiert wird, zu schlie- 40 A§=CHR§(0)&CHR§ 
ßen. CI ose# 1 in Zeüe 70 ((I-(CHARTSTART-1)) 

schließt nur die in Zeile * 10)&CHR§( 147)& 

10 eröffnete Datei! CHR§(200)&CHR§(16) 


90 REM BEISPIEL 1 ZU CHR$-KU 
NDE 

100 OPEN #1:"DSK1.TEST",OUTP 
UT,DISPLAY ,VARIABLE 163 
110 FOR 1=129 TO 255 
120 A$=CHR$(0)&CHR$((1-126)* 
10) kCHR$ (131) &CHR$ (I) 6<CHR$ (0 
‘ )kCHR$<0) 

130 PRINT #1:A$ 

140 NEXT I 

150 PRINT #1:CHR$<255)kCHR$( 
255) 

160 CLOSE #1 
170 END 

90 REM BEISPIEL 2 ZU CHR$-KU 
NDE 

100 OPEN #1:"DSK1.TEST",OUTP 
UT,DISPLAY ,VARIABLE 163 
110 FÜR I=CHARSTART TO CHARE 
ND 

120 CALL CHARPAT(I,B$? 

130 A$=CHR$ (0) £cCHR$ ( (I-CHARS 
T ART -1) *10 ) kCHR$ (147) 8<CHR$ (2 
.00) &CHR* (16) &B$LCHR$ (0) &CHR$ 
( 0 ) 

140 PRINT #1:a$ 

150 NEXT I 

160 PRINT #i:CHR$(255)&CHR$( 
255) 

170 CLOSE #1 
180 END 


i)&CHR$( 


B§&CHR§(0)&CHR§ 

( 0 ) 

50 PRINT# 1:A§ 

60 NEXT I 

70 PRINT #1 :CHR§(255) 
&CHR§(255) 

80 CLOSE #1 
90 END 

Erläuterungen: _ 

CHARSTART gibt den 
ersten Charaktercode, 
CHAREND den letzten 
Code, der in Data’s ge¬ 
schrieben werden soll, an! 
In A§ geben die ersten 
beiden CHR§ nochmals 
die Zeilennummer an (in 
Zehnerschritten!). Das 
dritte CHR§ gibt das 
Token an (hier: Data). 
CHR§(200) bzw. CHR§ 
(16) müssen nach dem 
Data-Token stehen, da 
sonst ein Error auftritt. 
Diese beiden Zahlen ge¬ 
ben den internen Code 
an. Man könnte sie auch 
weglassen, nur müßte 
man in jeder Data-Zeüe 
am Ende ein/zweimal 
Delete drücken... und das 
möchte ganz bestimmt 
niemand! 

Weiterhin gibt es viele 
Möglichkeiten wie man 
die Token benutzen und 
miteinander verbinden 
kann. Für andere Compu¬ 
ter gibt es ein Programm, 
das selbst ein Programm 
aufbaut. 

Der Phantasie sind hier 
fast keine Grenzen gesetzt. 
Zum Schluß noch einen 
kleinen Gag: 

Normalerweise gibt es die 
Zeile 0 nicht. Man kann 
trotzdem, zum Staunen 
und Verzweifeln der 
Freunde, eine „nullte“ 
Zeile über diese Methode 
bekommen... 

1) Datei wie oben eröff¬ 
nen 

2) einen String definieren, 
der in der Zeile stehen 
soll, z.B. c§=“ (C)1985 
Oliver Siffrin“ 

3) den zweiten String wie 
folgt aufbauen: 
A§=CHR§(0)&CHR§ 
(0)&CHR§(131 )&C§& 
CHR§(0)&CHR§(0) 

4) die restliche Prozedur 
wie bei den anderen 
Beispielen... 

Oliver Siffrin 

Anmerkung: § = $ 
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Herzlichen 
Glückwunsch 
zum neuen PC! 

Die Würfel sind gefallen: Fred Tiede- 
mann aus Hamburg 11 kann sich 
freuen. Aus mehr als 11000 Einsen¬ 
dungen zu unserem großen Gewinn¬ 
spiel zog unsere Glücksfee seinen 
Namen. Er gewann den großen Preis: 
Einen PC 10 von Commodore im 
Wert von rund 5500 DM. 



Hauptgewinn: Ein PC 10 von Commodore! 


Herzlichen Glückwunsch von der 
Isar an die Alster. Weitere zwei Leser 
werden noch eine Weihnachtsüber¬ 
raschung erleben: Sie erhalten je 
einen MSX-Computer Yashica 64 - 
pünktlich zum Weihnachtsfest Es 
sind: Eckhard Spaeth aus 3325 Len¬ 
gede und Henning Neumann, 5040 
Leverkusen. 

Ihnen allen wünscht die Redaktion 
viel Freude und Spaß. 


Convert 
erspart das 
Abtippen 
von List-Dateien 


Stellen Sie sich vor, Sie bekommen z.B. 
durch Ihre RS232 den List(ASCII)-Datei eines 
Basic-Programmes geschickt. Sobald dieses 
Programm länger als 20 Zeilen ist, wird es mühsam, 
es abzutippen, denn der TI 99/4A erkennt ja 
ein derartiges Format nicht als Programm. 

Die Fehler rechnet man damit am besten nicht ein. 


Dies zu vermeiden hilft 
das Programm CONVERT, 
welches als EPROM für die 
in der TI-REVUE 5/85 
vorgestellte Modulplatine 
geliefert wird. Für Insider: 
Es ist in GPL geschrieben. 
Es wandelt Tl-Basic oder 
Ex-Basic List-Files wieder 
in das Program-Format 
um, so daß der TI 99 sie 
als Programm verarbeiten 
kann. D.h. ein List-File, 
der im Variable 80 For¬ 
mat auf Diskette abgespei- 


der Listfiles über die 
RS232-Schnittstelle und 
die Speicherung des ferti¬ 
gen Programms auf 
Kassette. 

Beim Anwählen von 
CONVERT erscheint eine 
Hauptwahlliste, welche 
ab fragt, welche Basic-Ver¬ 
sion umgewandelt wer¬ 
den soll, wobei hier eine 
besondere Funktion na¬ 
mens M-Basic die in ande¬ 
ren Basicdialekten häufig 
verwendeten ?, MIDS und 


UNSER 

@ TELEFONSERVICE S 

Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG!!! 

Wie immer steht unseren Lesern unser Telefon-, 
Service zur Verfügung! Jeden Diensta g von 15 bis 
19 Uhr . Für technische Fragen: 0731/33 220 und 
für Listings/Programme: 089/129 80 13 


chert ist, wird in Basic- 
Programm umgewandelt, 
welches geladen und aus¬ 
geführt werden kann. So¬ 
mit fällt jegliches Ab tip¬ 
pen von List-Files, welche 
auf Diskette abgespei¬ 
chert sind, weg. 
CONVERT ist ein Pro¬ 
gramm, welches auch oh¬ 
ne Speichererweiterung, 
jedoch sinnvollerweise 
mit mindestens einem 
Diskettenlaufwerk, lauf¬ 
fähig ist. Es funktioniert 
aber auch der Empfang 


das einfache Trennungs¬ 
zeichen korrekt zu allen 
X-Basic-Befehlen für den 
TI 99 umwandelt. Es ist 
also von Nutzen, sich zu 
vergewissern, in welchem 
Basic-Dialekt das Pro¬ 
gramm, das im List-File 
enthalten ist, geschrieben 
wurde. Nach der Wahl des 
Dialektes muß man noch 
den Namen des List-Files 
eingeben, mit welchem er 
auf der Diskette abgespei¬ 
chert ist. Ist dies gesche¬ 
hen, so zeigt der Compu- 
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ter auf dem Bildschirm er auftrat, nicht umgewan- 
die Zeilennummer an, delt, sondern es erscheint 
welche gerade umgewan- die entsprechende Zeile 
delt wird. Danach gibt als REM Zeile, in der ver- 
man dann den Namen ein, merkt steht, daß eine'Um- 
mit dem das neu entstan- Wandlung fiir das Pro- 
dene Programm auf der gramm unmöglich war. 
Diskette oder Kassette ab- Einen Haken hat die gan- 
gelegt werden soll, so ze Sache jedoch: Basic- 
speichert der Computer es Zeilen können bis zu 254 
ab, und das neu entstan- Zeichen lang sein, die List- 

dene Programm kann nun Dateien sind aber nur bis 

normal als Basicprogramm max. 80 Zeichen lang, 
geladen werden. Wird dadurch ein Befehl, 

Tritt während der Um- ein Variablenname oder 
Wandlung ein Fehler auf, auch ein String in Anfüh- 
so wird diese Zeile, in der rungszeichen in zwei Hälf¬ 


ten geteilt, so ist das Pro- oder des TI Writers editie- 
gramm nicht in der Lage, ren und dadurch verän- 
diesen umzuwandeln. Es dem kann. Hat man kei- 
tritt dann ein SYNTAX nes der beiden Module, so 
ERROR auf. Es wandelt muß man entweder diese 
diesen Befehl erst dann Zeile abtippen, oder sich 
um, wenn man den betref- ein eigenes Editierpro- 
fenden Befehl in eine neue gramm schreiben, welches 
Zeile gesetzt hat, denn sehr gut in Basic zu be- 
das Modul erlaubt schon werkstelligen ist. Trotz- 
längere Zeilen als 80 Zei- dem ist das CONVERT- 
chen, nur darf dann am Programm eine große 
Beginn der neuen Zeile Arbeitserleichterung, 
keine Zahl stehen. Dies ist welche vor allem bei den 
möglich, da man einen DFÜ-User begrüßt wer- 
List-File anhand der Edi- den dürfte. 
tor/Assembler Moduls Oliver Huber 


ZEHNERBLOCK 
- 1 - 

Dieses Unterprogramm 
soll dem Anwender häufi¬ 
ge Zahleneingaben er¬ 
leichtern. 

Der Aufruf des Unterpro¬ 
grammes erfolgt durch 


CALL BLOCK(ZAHL, 
ZEILE, SPALTE) und 
funktioniert ähnlich wie 
ACCEPT AT. 

Die Alpha-Lock-Taste 
muß für die Zahleneingabe 
gelöst sein! 

Die Tastaturbelegung ist 
folgende: 


7(7) 8(8) 9(9) 0(0) 
u(4)i(5)o(6) J 

j(l) k(2) 1(3) ( ) 

Das Minuszeichen kann 
ohne SHIFT eingegeben 
werden. 

Falscheingaben sind nicht 
möglich. 


Das zugehörige Testpro¬ 
gramm ist ein einfaches 
Additionsprogramm (An¬ 
zeige der Summe durch 
Eingabe von 0 oder “ “) 
und soll nur die Funk¬ 
tionsfähigkeit des Unter¬ 
programms demonstrieren. 

Rudolf Hoven 


1 !************************* 


2 ! 9t Zehner-Block * 

3 '* TI/99/4A * 

4 !# EXT.BASIC * 

5 !* Rudolf Hoven * 


9 ! **-X-*****9t******9f ********* 

10 ! 

20 ! Speicherbelegung 

30 ! des Unterprogramms: 

40 ! 604 Bytes 

50 ! 

90 REM *** TEST-ANFANG *** 
100 BISFLAY AT(2,3)ERASE ALL 
: "ALPHA-LÜCK L GE SEN ! .! ! " 

110 DISPLAY AT (12,5) .* "DATA?" 
120 CALL BLOCK(ZAHL,12,11) 
130 IF ZAHL THEN SUM=SUM+ZAH 
L :: GOTO 120 

140 DISPLAY AT(12,5):"SUMME= 

" ! SUM 

200 CALL KEY(0,K,S):: IF S=0 
THEN 200 ELSE SUM=0 :: GOTO 
110 

210 REM *** TEST-ENDE *** 

220 ! 

230 ? 

240 ! 

250 ! 

3000.6 SUB BLOCK (ZAHL, ZEI, SPA 
) 

3002.0 ON ERROR 30360 
30040 if F THEN 30120 


3008.0 F= 1 :: RESTORE 30380 : 
: FOR 1=1 TO 7 II READ QW,TY 
,ES(I),PS(I):: CALL CHARPAT( 
QW,C$):: CALL CHAR(TY,C$):: 
NEXT I 

30120 ACCEPT AT(ZEI,SPA)BEEP 
SIZE(-13)VALIDATE("j kluio78 
90./"):x$ 

30160 IF X$=" " THEN ZAHL=0 I 
: SUBEXIT 

30180 ip §|fi$TH 

EN X$="-"&SEG$(X$,2,LEN(X$)- 
1) 

30200 FOR J=1 TO LEN(X$):: P 
,E=ASC(SEG$(X$,J,1)) 

30220 FOR 1=1 TO 6 

30240 IF E=ES <I)THEN P=PS(I) 

:: GOTO 30280 
30260 NEXT I 

30280 YOK$=YGK$kCHR$(P):: NE 
XT J 

30320 ZAHL=VAL(YOK$):: YOK$= 
"" :: SUBEXIT 

30360 CALL SOUND(250,-3,0):: 

ON ERROR 30360 :: YOK$="" : 

: RETURN 30120 

30380 DATA 49,106,106,49,45, 
47,117,52,50,107,105,53,51,1 
08,111,54,52,117,107,50,53,1 
05,108,51,54,111,0,0 
30420 SUBEND 
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Das Beste aus CA 


H 



ALLE 

ÜBER 
COMPUTER 
& ZUBEHÖR 


WAS SIE 
BEIM COM¬ 
PUTERKAUF 
BEACHTEN 
MÜSSEN! 


1 


RUND 150 
SEITEN 
EINKAUFS¬ 
BERATER 


Die wichtigsten 
Computer 


Die beste 
Software 


Die schnellsten 
Drucker 







LISTINGS 


KALENDER 


Dieses Programm bietet 
Ihnen zwei Funktionen 
zur Auswahl. Sie können 
sich den Wochentag zu ei¬ 
nem beliebigen Datum 
(nach 1582 , zu diesem 
Zeitpunkt wurde der Ka¬ 
lender umgestellt) errech¬ 
nen lassen oder mit Funk¬ 
tion 2 einen Jahreskalen¬ 
der für ein beliebiges Jahr, 
nach Ihrer Wahl, ausdruk- 
ken lassen. 

In diesem Programm 
wurde ein Binder 8510A 


benutzt. Es läßt sich aber 
auch leicht für jeden an¬ 
deren Drucker umschrei¬ 
ben. Der Computer über- 

E rüft die eingegebenen 
laten und weist solche, 
die nicht existieren, 
zurück. 

Das Programm ist durch 
geschickte Programmie¬ 
rung sehr schnell und 
genau und durch die gu¬ 
ten Dokumentationen im 
Listing leicht nachvoll¬ 
ziehbar. H.-J. Adler 


APARAK 5 


Aparak 5 ist ein Kurven- 
diskussions-Programm, 
welches Parameterglei¬ 
chungen zeichnet und/ 
oder ihre Nullstellen und 
Extremwerte berechnet. 
Zum Unterschied zu vie¬ 
len anderen ähnlichen 
Programmen kann hier 
die Funktion direkt wäh¬ 
rend des Ablaufes einge¬ 
geben werden und wird 
dann in die entsprechen¬ 
den Zeilen gepoked, in 
denen zu Beginn eine Bei¬ 
spielfunktion eingegeben 
ist. 

Bei der Eingabe von 
Aparak 5 ist besonders auf 
die korrekte Eingabe der 
REM-Zeilen zu achten. 
Eine Änderung von ihnen 
oder eine Änderung der 
Zeilennummem kann zu 
einer Fehlfunktion des ge¬ 
samten Programmes füh¬ 
ren. Nach der Eingabe des 
Prögrammes und nach dem 
Starten mit RUN erscheint 
ein erstes Menü auf dem 
Bildschirm. Bei diesem 
kann man entweder die 
Gleichungen im Intervall 
von -5 bis 5 auf dem Bild¬ 
schirm darstellen lassen 
oder das Hauptmenü an¬ 
wählen. Im Hauptmenü 
werden alle Werte, die 
man verändern kann, auf¬ 
geführt. Außer der Funk¬ 
tion. Diese wird nur bei ' ‘ 
der Wahl von Punkt 9 des 
Hauptmenüs gezeigt. Die 
Eingabe des Intervalls er¬ 
folgt durch Trennung mit 


der ENTER-Taste der zwei 
Werte. Der mittlere X 
oder Y-Wert gibt an, wel¬ 
che Koordinate des Ach¬ 
senkreuzes in die Mitte 
des Zeichenbildschirmes 
gelegt wird. Der Maßstab 
gibt den Kehrwert des 
Faktors an, mit dem die 
ganze Funktion vergrößert 
oder verkleinert dargestellt 
wird. Der Punkt 8 des 
Hauptmenüs zeigt an, ob 
die einzelnen Punkte der 
Funktion beim Zeichnen 
mit einer Linie verbun¬ 
den werden sollen oder 
nicht. Das Programm ist 
für den TI 99/4A + 32 K- 
Bytes + Apesoft-Grafik 
oder TI 99/4A + 32 K- 
Bytes + X-BASIC 2 Plus 
angelegt. 

Anmerkung der 
Redaktion: 

Obwohl in der Dokumenta¬ 
tion des Listings schon darauf 
aufmerksam gemacht wurde, 
sei an dieser Stelle noch ein¬ 
mal ausdrücklich davor ge¬ 
warnt, irgend etwas an dem 
Listing zu ändern. 

Die entsprechenden Funktio¬ 
nen müssen nicht, wie im 
X-Basic, in DATA-Zeilen ein¬ 
gegeben werden, sondern sie 
werden in die entsprechenden 
Zeilen gepoked. Wird an dem 
Listing irgend etwas geändert, 
kann es zu Fehlfunktionen 
kommen, deshalb haben wir 
auch auf unser bekanntes 
Kopfbild verzichtet. 

Also noch einmal: Keine REM- 


Zeilen löschen, keine Zeilen 
anfugen oder weglassen und 
die Zeilen nicht umnume¬ 
rieren!!! 

Da es für die Ape-Soft-Grafik 
oder das Extended Basic II 
Plus bisher kaum Programme 
gibt (mit Ausnahme der Pro¬ 
gramme von Dr. Alma Peschitz 
in TI 99 Special I und II), 
werden sich Besitzer dieser 
Software sicherlich über Zu¬ 
wachs ihrer Programmsamm¬ 
lung freuen. 

Im Gegensatz zu Kurvendis¬ 
kussionen im normalen X-Ba¬ 


sic, bei denen man normaler¬ 
weise viel Zeit und Geduld 
aufbringen muß, wird hier mit 
Hilfe der Assembler-Unterrou¬ 
tinen die Funktion in Sekun¬ 
denschnelle auf dem Bild¬ 
schirm generiert. Das Menü 
bietet mannigfaltige Optionen 
an. 

Jeder Tl-User, der über die 
Ape-Soft-Grafik oder das Ex¬ 
tended Basic II Plus verfügt, 
und die erforderlichen mathe¬ 
matischen Kenntnisse verfugt, 
wird von diesem Programm 
begeistert sein. 


BAUSTATMK 

DURCHB I EC3LJMC3_IM_FELDMI 1 rE 

EINFELDTRAEGER LAGERUNG; GELENKIG ODER EINGESPANN1. 

TRAEGHEITSMOMENT IN CM~4 = 11770 
SPANNWEITE IN METER= 7.7 

LASTEN SIEHE STATIKSKIZZE * 


Y 

(Q) 

IN FELDMITTE = 

.59 CM 

Y 

(F) 

-//- 

1.46 

CM 

SUMME 

Y 

2.05 

CM 


DURCHBIEGUNG ENTSPRICHT 1: 375.61 DER SPANNWEITE. 


Dieses Programm ist für 
Baustatiker, die ein Pro¬ 
gramm zur Schnittkrafter¬ 
mittlung besitzen, eine 
nützliche Ergänzung, da 
die Durchbiegung in man¬ 
chen statischen Berech¬ 
nungen das Bemessungs¬ 
kriterium ist. 

Das Programm arbeitet im 
Dialog mit Ihnen, daher 
sind keine besonderen An¬ 


leitungen erforderlich. 
Folgende Belastungen 
sind möglich: 

1) Gleichlasten 

2) Bel. viele Einzellasten 

3) Teilstreckenlasten wer¬ 
den durch beliebig vie¬ 
le Einzellasten definiert. 

Auf Wunsch werden die 
Ergebnisse über einen 
Drucker ausgegeben. 

J.Picksak 



Mehr Geld verdienen ... 

Wenn Sie den Wunsch zu selbständiger 
Arbeit haben und gut verdienen wollen - 

HIER IST DIE LÖSUNG: 

Werden Sie Partner von Michael Meister, 
EDV-Marketing 

Rheinstr.47,7500Karlsruhe 21, Auftrags¬ 
dienst Frau Staack, Tel. 07 21/554601 

Keine Broschüren. Keine Konzepte — sondern reelle Chan¬ 
cen — gerinoes Startkapital erforderlich, ab DM 100,—. 
Technisches Interesse und kaufmännische Kenntnisse von 
Vorteil! Bitte benutzen Sie die Kontaktkarte und fügen Sie 
einen V-Scheck von DM 5,— bei! (Schutzgebühr) 


PH 
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220 

230 

240 

250 

260 

270 

280 
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300 
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320 

330 

340 

350 

EXT 

360 

,D$ 

370 


Kalender 
Version 2.1 
Copyright by 
Hans-j. Adler 
Eagle Computing 

Bearbeitet vom 
Team des 

Aktuell Verlages 
Muenchen 


********************* 
Vorbereitungen 
CALL CLEAR :: ON BREAK N 


DIM TA(12),MO(12),DA(12) 
(7) 

DEF F=Y*365+D+31*(M-l) 


380 DATA 31,28,31,30,31,30,3 

1,31,30,31,30,31 

390 GOTO 420 :: CALL CHAR :: 

CALL SPRITE II CALL DELSPRI 
TE :: CALL MAGNIFY 
400 CALL CHARPAT I *. CALL SOU 

nd :: call Position :: call 
motion :: call locate 
410 F1,C«,I,J,X,Y,A$,K,S,Yl, 
D1,M1,D,M,Y,FL,SCH,B,BB,JA$, 
Al$,B$,MON,P :: !@P- 
420 DATA Sonntag,Montag,Dien 
stag,Mittwoch,Donnerstag,Fre 
itag,Sonnabend 

430 DATA 75,65,76,69,78,68,6 
9,32 

440 DATA 60,66,153,165,165,1 
29,66,60,0,0,0,127,73,73,73, 
65,96,144,144,0,0,0,0 
450 C*=CHR$(27) 

460 ! Daten ei niesen 
470 FOR 1=1 TO 12 :: READ MO 
(I):: NEXT I 

480 FOR 1=1 TO 7 :: READ D$ ( 
I):: NEXT I 

490 CALL CHAR<64,"3C4299A1A1 
99423C",93, H 0044004444444438 
",95,"00FFFF") 

500 CALL CHAR(123,”000044003 
8447C44",124,"000044007C4444 


7C0000440044444438") 

510 ! 

520 ! Titelbild 
530 ! ========= 

540 CALL COL (16,2,5) : : CALI. 
MAGNIFY(2) 

550 FOR 1=1 TO 4 :: READ J 
560 CALL SPRITE(#1,J,10,240, 
16+1*24,25,0) 

570 CALL POSITION(#1,X,Y ):l 
IF X<51 + 1*4 OR X>61 +1*4 THEN 
570 

580 CALL MOTION(#1,0,0):: CA 
LL LOCATE(#I,56+1*4,16+1*24) 
590 NEXT I 

600 FOR 1=5 TO 8 :: READ J 
610 CALL SPRITE(#I,J,10,240, 
16+1*24,-25,0) 

620 CALL POSITION(#1,X,Y) : : 

IF X>62+1*4 OR X<51 + 1*4 THEN 
620 

630 CALL MOTION(#1,0,0):: CA 
LL LOCATE'(#I,56+1*4, 16+1*24) 
640 NEXT I 

650 FOR J=1 TO 3 :: FOR 1=20 
0 TO 400 STEP 50 .* I CALL SOU 
ND(70,1,1/100):: NEXT I 
660 NEXT J :: FOR 1=400 TO 2 
00 STEP -40 :: CALL SOUND(70 
,1,1/100):: NEXT i 
670 A$="@ EAGLE-computing ’8 
4." 

680 DISPLAY AT(23,1):A$ 

690 A$=SEG$(A$,28,1)&A$ :: A 
$=SEG$(A$,1,28) 

700 CALL KEY(0,K,S)I: IF S=0 
THEN 680 ELSE CALL DELSPRIT 
E (ALL) 

710 ! 

720 ! Menue 
730 ! ===== 

740 CALL COL(2,8,14) 

750 CALL SPRITE(#1,77,2,15,8 
9, #2,69,2,15,113,#3,78,2,15, 
137, #4, 93,2,15,161) 

760 DISPLAY AT(5,1):RPT$( 
,28) 

770 DISPLAY AT(13,3):"Wochen 
tag bestimmen...." !! CALL S 

PRITE(#5,49,2,89,217) 

780 DISPLAY AT(16,3):"Kalend 
er drucken......." II CALL S 

PRITE(#6,50,2,113,217) 

790 DISPLAY AT(19,3):"Ende.. 

. M :: call s 

PRITE (#7,51,2-, 137,217) 

800 CALL KI(49,51,K) : : CALL 
DELSPRITE(ALL) 

810 ON K GOTO 850,1250,2040 
820 ! 
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830 ! Wochentag bestimmen 

850 CALL COL(2,16,4) 

860 DISPLAY AT<2,5):"WOCHENT 

AG BESTIMMEN" : RPT$ (**_" , 28) 

870 IF Y1>0 THEN 940 

880 DISPLAY AT<6,1):"Heutige 

s Datum : 01.01.1984" 

890 ACCEPT AT(6,18)SIZE(-2)V 
ALIDATE(DIGIT):D1 :: IF D1=0 
OR Dl>31 THEN 890 
900 ACCEPT AT <6,21)SIZE(- 2) V 
ALIDATE(DIGIT):M1 :: IFMi=0 
OR Ml>12 THEN 900 
910 CALL DATE(Dl,Ml,FL,MO()) 
:: IF FL=1 THEN FL=0 :I GOTO 
890 

920 ACCEPT AT(6,26)SIZE(-2)V 
ALIDATE(DIGIT):Y1 :: IF Yl<8 
4 THEN 920 
930 Y1=1900+Y1 

940 DISPLAY AT (9, 1) : "Ge-f ragt 
es Datum: 00.00.0000" 

950 ACCEPT AT(9,18)SIZE(-2)V 

ALIDATE(DIGIT):D :: IF D=0 0 

R D >31 THEN 950 

960 ACCEPT AT(9,2i)SIZE(-2)V 

ALIDATE(DIGIT):M :: IF M=0 0 

R M >12 THEN 960 

970 CALL DATE(D,M,FL,MO() ) : : 

IF FL=1 THEN FL=0 :: GOTO 9 
50 

980 ACCEPT AT(9,24)SIZE(-5)V 
ALIDATE(DIGIT):Y 
990 IF Y> = 1582 THEN 1030 
1000 DISPLAY AT(17,1):"Es k! 
nnen keine Wochentage": :"vo 
r 1582 angegeben werden !! " 
1010 FOR 1=1 TO 1000 :: NEXT 
I 

1020 DISPLAY AT(17,1):" H : :" 
" :: GOTO 950 

1030 IF D=29 AND M=2 THEN SC 
H=l :: D=l :: M=3 
1040 GOSUB' 2150 :: IF SCH=0 
THEN 1110 
1050 ! 

1060 ! Existiert 29.2 ? 

1070 BB=B :: D=29 :: m= 2 :: 
GOSUB 2150 :: SCH=0 
1080 IF BBOB THEN 1110 
1090 DISPLAY AT(17,1):"Der 2 
9.02."&STR$<Y)&" existiert": 

:"nicht !!!" 

1100 GOTO 1200 

1110 A$="Der "&STR$ (D). "&cS 
TR$(M)&". "&STR*(Y) 

1120 IF <Y1*12+M1)*31+D1<<Y* 

12+M)*31+D THEN 1160 

1130 IF <Y1*12+M1)*31+D1=(Y* 


12+M)*31+D THEN 1150 

1140 DISPLAY^AT(17,1):A$&" w 

ar ein" :: GOTO 1170 

1150 DISPLAY AT(17,1):A$&" i 

st ein" :: GOTO 1170 

1160 DISPLAY AT(17,1):A$&" w 

ird ein" :: X=1 

1170 DISPLAY AT(19,1):D$(B) 

1180 IF X=1 THEN X=0 :: DISP 

LAY AT(19,LEN(D$(B))+2):"sei 

n. " :: GOTO 1200 

1190 DISPLAY AT(19,LEN(D*(B) 

)+l):"." 

1200 DISPLAY AT(23,27):">>" 
1210 CALL KI(13,127,K):: GOT 
0 740 
1220 ! 

1230 ! Kalender drucken 
1240 ! ================ 

1250 CALL COL(2,4,7) 

1260 DISPLAY AT(2,7):"KALEND 
ER DRUCKEN": RPT$ ("__", 28) 

1270 DISPLAY AT(12,1):"Welch 
es Kalenderjahr ? 0000" 

1280 ACCEPT AT(12,24)SIZE(-5 
)VALIDATE(DIGIT):Y :: IF Y<1 
582 THEN 1280 

1290 ! 12 Monatserste berec 

hnen - D(l)...D(12) 

1300 ! - 


1310 D=1 

1320 FOR 1=1 TO 12 :: M=I 
1330 GOSUB 2150 
1340 DA(I)=B-1 
1350 NEXT I 

1360 ! Schaltjahr-Check 

1370 ! - 

1380 D=29 :: M=2 :: GOSUB 21 
50 

1390 IF DA(3)=B THEN M0(2)=2 
9 ELSE MO(2)=28 :: GOTO 1410 
1400 DISPLAY AT<16,2):STR$(Y 
) i " ist ein Schaltjahr !" 
1410 DISPLAY AT(21,4):"Druck 
er einschalten :".....Ta 

ste dr>cken ..." 

1420 CALL KI(13,127,K):: DIS 
PLAY AT<21,1):"": :"...Druck 
Vorgang 1 <u-ft ..." 

1430 OPEN #l:"RS232.BA=9600. 
DA=8.TW" 

1440 PRINT #l:C$& H L003"iC$&" 
>";c*&"Tl6“: : 

1450 ! Jahreszahl drucken 

1460 ! - 

1470 JA$=STR$(Y) 

1480 FOR 1=2 TO 8 :: PRINT # 
l:TAB(40-LEN(JA$)*8)iC$k"!"; 
CHRS(14); 


» 
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1490 FOR J=i TO LEN('JA$):: A 
*=SEG*<JA*,J,1):: CALL CHARP 
AT<ASC(A$),A1*) 

1500 A1$=SEG*<A1$,2*I-1,2) 
1510 FOR K=1 TO 2 :: B$=SEG$ 
<A1*,K,1) 

1520 IF B$="0VTHEN PRINT #1 

: -_ -J:: goto 1680 

1530 IF B$="1 H THEN PRINT «1 

: 41 .. .*- j:: goto 1680 

1540 IF B$="2“ THEN PRINT #1 

goto 1680 

1550 IF B$="3" THEN PRINT #1 

: H ..**"j:: goto 1680 

1560 IF BS= H 4" THEN PRINT #1 

:".*.. M ;:: goto 1680 

1570 IF B$="5" THEN PRINT «1 

:" * *"i:: goto 1680 

1580 IF B$=" 6 " THEN PRINT #1 

:" ** M ;:: goto 1680 

1590 IF B$= M 7" THEN PRINT #1 

*** H j:: goto 1680 

1600 IF B$=" 8 " THEN PRINT «1 

goto 1680 

1610 IF B$="9" THEN PRINT #1 

:-*..*"?:: goto 1680 

1620 IF B$="A" THEN PRINT #1 

:"* * " 5 :: goto 1680 

1630 IF B$="B" THEN PRINT #1 

:"* **";:: goto 1680 

1640 IF B$="C" THEN PRINT #1 

: H **..";:: goto 1680 

1650 IF B$="D" THEN PRINT «1 

:"** *"r:: goto 1680 

1660 IF B$="E M THEN PRINT #1 

:"*** ”i:: goto 1680 

1670 IF B$="F" THEN PRINT #1 

• A A A A J •-* 

1680 NEXT K :: NEXT J :: PRI 
NT 41: - -;CHR$(15) 

1690 NEXT I :: PRINT 4i:c$&c 
HR$<34) |C*B«"A*S : 

1700 ! Kalender 

1710 ! -- 

1720 FOR 1=1 TO 4 :: PRINT 4 
l:RPT$( M * M ,76):: GOSUB 2120 
1730 ON I GOTO 1740,1760,178 


0,1800 

1740 PRINT 41: "*.JAN 

UAR.*.FEBRUAR 

.*.MCRZ. . . . 

. *" 

1750 GOSUB 2120 :: PRINT #1: 
RPT$( ,, * H ,76) I : GOTO 1820 

1760 PRINT 41:"* .APR 

IL.*.MAI. . 

.*.JUNI. . . . 

.*" 

1770 GOSUB 2120 :: PRINT 4i: 


RPT$<"*",76):: GOTO 1820 


1780 PRINT 41:"*.-JU 

LI.*.AUGUST 

._SEPTEMBER.. 

. *" 

1790 gosub 2120 PRINT 41: 
RPT$<"*",76):: GOTO 1820 

1800 PRINT #i: "*...•.OKTO 


BER.*.NOVEMBE 

R.*.DEZEMBER. . 


.* M 

1810 GOSUB 2120 :: PRINT 41: 
RPT$ ( ,, * M , 76) 

1820 PRINT 41:"*..So Mo Di M 
i Do Fr Sa..*..So Mo Di Mi D 
o Fr Sa..*..So No Di Mi Do F 
r Sa..* H :: GOSUB 2120 
1830 M0N=3*(I-1)+1 
1840 FOR J = 1 TO 6 : *. FOR K=M 
ON TO NON+2 

1850 print 41: if J< 
>1 THEN 1900 

1860 IF DA(K)=0 THEN 1880 
1870 FOR P=1 TO DA(K):: PRIN 
T 4i:": NEXT p 
1880 FOR P=1 TO 7-DA(K):: PR 
INT 41,USING ”44 "SPSS: NEXT 
p :: PRINT 41:” "5 
1890 TA(K)=7-DA(K):: GOTO 19 
30 

1900 FOR P=1 TO 7 :: IF TA(K 
)>=NO(K)THEN PRINT 41: M " i 
:: GOTO 1920 

1910 TA(K)=TA(K)+1 :: PRINT 
41,USING ”44 ":TA(K); 

1920 NEXT P :: PRINT 41: M "5 
1930 NEXT K :: PRINT 41: "*" 5 
1940 PRINT 41:" " :: NEXT J 
1950 GOSUB 2120 :: NEXT I :: 

PRINT 4l:RPT$("*",76) 

1960 RESTORE 440 :: PRINT 41 
: :CHR$<14) ?C*&"S0022 ,, i 

1970 FOR 1=1 TO 22 :: READ J 
:: PRINT 4i:CHR$(J)i:: NEXT 
I 

1980 PRINT 41:CHR$(15)J" T 84" 

j 

1990 PRINT 41IC$&"<"iC$&"L00 
0”;CHR$(13)iCHR$(12):: CLOSE 
41 

2000 GOTO 740 
2010 ! 

2020 ! Ende 

2030 ! - 

2040 CALL CLEAR :: STOP 

2050 ! 

2060 ! 

2070 ! SUBROUTINES 
2080 ! *********** 

2090 ! 
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2100 ! 

2110 ! Printer-Routine 
2120 PRINT #1:"*"kRPT$(" ",2 
4) E< M *"&RPT$ ( “ -,24)&-*"6<RPT$ 
<- " ,24)&"*" :: -RETURN 
2130 ! 

2140 ! Tag berechnen 
2150 IF M>2 THEN 2170 

2160 F1=F+INT((Y-l)/4)-INT(. 
75*(INT((Y-l)/100)+l))I: GOT 
0 2180 

2170 Fl=F-INT(.4*M+2.3)+INT( 
Y/4)-INT(.75*(INT(Y/100)+1)) 
2180 B=Fl+INT(-Fl/7)*7 
2190 B=B-(B<=0)*7+<B>6)*7 
2200 RETURN 
2210 !@P + 

2220 ! 

2230 i Farben de-finieren 
2240 SUB COL(X,Y,2) 

2250 CALL CLEAR :: CALL SCRE 
EN (Z) 

2260 FOR 1=0 TO 14 :: CALL C 
OLOR(I, X , Y ):: NEXT I 
2270 SUBEND 
2280 ! 

2290 ! Call Key 
2300 SUB KI(X,Y,K) 

2310 CALL KEY(0,K,S):: IF K< 
X OR K >Y THEN 2310 ELSE K=K- 
48 

2320 SUBEND 
2330 ! 

2340 ! Datums-Cbeck 
2350 SUB DATE(X,Y,FL,MO()) 
2360 IF X>MO(Y)-(Y=2)THEN FL 
= 1 

2370 SUBEND 


BÖRSE 


Hallo TI-Freaks. Verkaufe TI 99 Netzteil (50,— 
DM). Recorderkabel (10,— DM) orig. TI 99/4A 
Schaltnetzteil zum Austausch (50,— DM), TI- 
Tastatur (50,— DM), Jockstik (20,— DM) Kas¬ 
settenrecorder (40,— DM), TI-Modulator (80,—) 
TI-99/4A Netzteil (30,- DM) 

Suche TI-Module. F. Haage, Rudolfstr. 9, 746 
BL-Frommem 07433/35189 


++ GOLF ++ (TI-99/4A + ExBasic) Meistern Sie 
die 18 Bilder!! Viel Geschicklichkeit und Augen¬ 
maß sind gefordert! TOP GARBGRAPHIK! Bis 
10 Spieler! DISK nur 10,— DM Vorauskasse! 
B&A AHRENS, Am Hinkelstein 21,6140 Bems- 
heim 1 


Verk. TI99/4A + Box + Floppy + 27 Disks + Ext. 
Bas + 6 Mod. Pars^c-Minus-Schach-Blacky. Ad- 
venture-Disk Manager + Kassetten + Ori.Lit + 
Data Becker + Hefte + Zubehör. VB 1100. H.v. 
Smolinski, Schillerstr. 96, 2080 Pinneberg 
04101-27233 FarbMoni +450 DM 
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.'ACHTUNG: JEDES WEITERE 
RES ODER JEDE WEITERE 
ZEILENNUMMERNAENDERUNG 
FUEHRT ZU EINER FEHL¬ 
FUNKTION DES PROGRAMMES 
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7900 Ulm-Soe-f 1 ingen 


& 


<c) Heiko Liebald 


Eichenweg 7 
7914 P-fa-f-fenho-fen 
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*****^**************** 

AAAAAAAAAAAAAAnAA 


Programmed: 1985 


X$= 


Y$="4*SIN(D) 


D M 

:: GOTO 670 
290 GOTO 320 

300 DEF X(D)=D :: RETURN :: 

!AAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAA 

310 DEF Y(D)=4*SIN(D):: RETU 
RN :: !AAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAA 
320 REM APARAK2 & ZEILENPOKE 
330 ZZ=300 
340 CALL SCREEN(2) 

350 CALL PEEK(-31950,A,B):: 
EE«=A*256+B-65537 
360 CALL PEEK<-31952,A,B):: 
SS«=A*256+B-65536 
370 CALL PEEK(EE-2,A,B):: 

A*256+BOZZ THEN EE=EE-4 
SE 390 

380 IF EE>SS THEN 370 ELSE P 
RINT “ZEILE NICHT DA“ :: END 
390 CALL PEEK(EE,A,B):: CC=A 
4256+B-65536 

400 PRINT CC :: CALL PEEK(CC 


IF 

EL 




21 








r 






,R)SS IF R<>131 AND R<>154 A 
ND R< >137 THEN PRINT "KEIN • 
REM*" :: END 

410 IF ZZ=300 THEN CALL LOAD 
(CC,137,88,183,68,182,190):: 
CC-CC+6 ELSE CALL LOAD(CC,l 
37,89,183,68,182,190):: CC«C 
C+6 

420 IF ZZ-300 THEN INPUT "X( 

D)=":x* :: fx*=x* else input 
"Y(D)=":y* :: fx*=y* 

430 DATA ABS,ATN,COS,EXP,INT 

,LOG,SGN,SIN,SQR,TAN 

440 PP=1 

430 FOR AA=1 TO LEN<FX$) 

460 B=ASC(SEG$(FX$,AA,1)) 

470 IF B=43 THEN DD=193 ELSE 
IF B=43 THEN DD=194 ELSE IF 
B=42 THEN DD=195 ELSE IF B= 
47 THEN DD=196 

480 IF B=40 THEN DD=183 ELSE 
IF B=41 THEN DD=182 
490 IF B=94 THEN DD=197 
300 IF "PI"=SEG$(FX$,AA,2)TH 
EN DD=221 :: AA=AA+1 :: GOTO 
620 

310 RESTORE 430 
520 FOR M=i TO 10 
530 READ B* 

540 IF B$=SEG$(FX$,AA,3)THEN 
CALL LOAD(CC+PP-1,M+202):: 
AA=AA+2 :: GOTO 640 
530 NEXT M :: Q=1 
560 IF B< >46 AND B<48 OR B>5 
7 THEN 610 

570 IF (B< >43 OR B<>45)AND A 
A>2-Q THEN IF SEG*<FX$,AA+Q- 
2,1) *"E" THEN 590 
580 IF B< >46 AND B<48 OR B>5 
7 AND B< >69 THEN 590 ELSE Q= 
Q+l :: IF LEN(FX*KQ+AA-1 TH 
EN 590 ELSE B=ASC(SEG*<FX$,A 
A+Q-1,1)):: GOTO 570 
590 Q=Q-1 :: E$=SEG*(FX*,AA, 
Q):: CALL LOAD(CC+PP-1,200,Q 

):: for aaa»i tü q :: call l 

OAD< CC+PP+AAA,ASC(SEG* < E«,AA 

A,l))):: NEXT, AAA 

600 CC=CC+AAA :: AA=AA+Q-1 : 

: GOTO 640 

610 IF B>64 AND B<91 THEN DD 
=B 

620 IF DD=0 THEN PRINT "EING 

ABEFEHLER" :: END 

630 CALL LOAD(CC+PP-1,DD) 

640 PP=PP+1 :: NEXT AA 
650 CALL LOAD(CC+PP-1,130,13 
6,130,131) 

660 IF ZZ=300 AND HIL=1 THEN 
ZZ=310 :: GOTO 360 


670 GOSUB 300 :: GOSUB 310 
680 ON WARNING NEXT :: ON ER 
ROR 1320 

690 REM (C)BY OLI 

MAI / JUNI *85 

700 CALL CLEAR 
710 CALL SCREEN(2) 

720 A*="EIN" :: LI$="EIN" 

730 FOR 1=0 TO 14 :: CALL CO 
LOR(I,4,1):: NEXT I 
740 PRINT "U = ANHALTEN DES 
ZEICHNENS": :"C = NACH ANH 

ALTEN WEITER": : "MALEN(NUR N 
ACH ANHALTEN": :"MOEGLICH,NI 
CHT NACH" 

750 PRINT :"BEENDIGUNG DES Z 

eichnens)": : :"0 = exit, na 

CHDEM MAN DAS": :"MENUE ANGE 
WAEHLT HAT.": : : : 

760 PRINT "1 = GEGEND UM NUL 
L ZEICHNEN": :"2 = EIGENE DA 
TEN" 

770 CALL KEY(0,T,ST):: IF ST 
=0 THEN 770 

780 da=-5 :: de=5 :: ma=i 
790 s=i :: ds= l 
800 IF T=49 THEN 820 
810 IF T< >50 THEN 770 ELSE 1 
010 
820 ! 

830 CALL LINK("GRAFIC",0) 

840 CALL LINK("WINDOW",6,10) 
850 REM BILD ZEIGEN ****** 
860 IF A$< >"EIN" THEN 880 
870 CALL LINK("AXIS",(63-XM* 
10/MA),(64+XM*10/MA),(70-XM* 
10/MA),(10/MA),(60-YM*10/MA) 

, (60+YM* 10/MA) j.(70-YM*10/MA) 

,(10/MA)) 

880 CALL LINK("CENTRE",64-XM 
*10/MA,60+YM*10/MA) 

890 NEX=0 :: FOR D=DA TO DE 
STEP S*MA/10 

900 CALL KEY (0, T, ST) .* : IF T= 
85 THEN 940 

910 CALL LINK("SETTO",10*X(D 
)/MA,10*Y(D)/MA):: IF LI«<>" 
AUS" THEN Q6=D :: D=D+S*MA/1 
0 :: CALL LINK("MQVETO",10*X 
(D)/MA,10*Y(D)/MA):: D=06 
920 NEXT D :: NEX=1 
930 GOTO 970 

940 CALL SOUND(200,500,5) 

950 CALL WAIT(200) 

960 GOTO 980 - 

970 CALL SOUND(200*440,3) 

980 CALL KEY(0,T,ST):: IF ST 
=0 THEN 980 :: IF NEX=0 THEN 
IF T=67 THEN 900 
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... „craü 


990 CALL LINK("CLSCRN") 

1000 CALL LINK("BYEBYE") 

1010 CALL CLEAR :: CALL SCRE 

EN<2):: NEX=1 - 

1020 PRINT -FOLGENDES KANN M 

an aendern:-: :- i = interva 

LL (- \ DA{"JDEJ")": : " 2 = 
MASSTAB (-?MA|-)-: : 

1030 PRINT “ 3 = MITTL. X-WE 
RT <"f XMJ")": :- 4 = MITTL. 
Y-WERT <“f YMf")"S : M 5 = SCH 
RITTLAENGE <"fSf")": : 

1040 PRINT " 6 = KURVE 2EICH 
NEN" : :" 7 = ACHSENKREUZ <"J 
A*J"): H 8 = LINIENVERB. ( 
H 5 LI$f M ) H : 9 = FUNKTION": 

1050 PRINT " N = NULLSTELLEN 
" E = EXTREMWERTE": :" W 
= WENDEPUNKTE" 

1060 CALL KEY(0,T,ST):: IF S 
T=0 THEN 1060 ELSE IF T=48 T 
HEN CALL CLEAR :: END 
1070 IF T< 49 OR T >57 AND TO 
78 AND T< >69 AND T<>87 THEN 
1060 

1080 IF T=78 THEN 1390 
1090 IF T=69 THEN 1520 ELSE 
IF T=87 THEN 1680 
1100 IF T=49 THEN ACCEPT AT< 

2,6):da :: accept at<2,12):d 

E 

1110 IF T=54 OR T=56 OR T=57 
THEN 1160 

1120 IF T=55 THEN IF A$="EIN 
- THEN A$="AUS"’ ELSE A$="EIN 
H ELSE IF T< >49 THEN 1150 EL 
SE 1170 

1130 DISPLAY AT(13,19)SIZE<- 
4):a$j-)- 
1140 GOTO 1170 

1150 ACCEPT AT<<T-48)*2,6>:W 
1160 ON T-48 GOTO 1170,1180, 
1190,1200,1210,830,1170,1360 
, 1220 

1170 GOTO 1060 
1180 MA=W :: GOTO 1170 
1190 XM=W :: GOTO 1170 
1200 YM=W :: GOTO 1170 

1210 s=w :: goto 1170 

1220 CALL CLEAR 
1230 PRINT "GEBEN SIE BEIM E 
RSCHEINEN": :"DES CURSORS ZU 
ERST DEN WERT": .'"FUER ’X* E 
IN.DANACH": :"GEBEN SIE DEN 
WERT FUER ’Y’■: .: 

1240 PRINT "EIN.BEI EINER FU 
NKTION": :"MUSS DER ’X’-WERT 
": :"GLEICH’D* GESETZT WERDE 


N.-: :"’D» IST IMMER PARAMET 
ER. " 

1250 PRINT .'-DIE FUNKTIONEN 
heissen:-: :-x="ix*: :-y=-jy 

-* 

1260 PRINT :-AENDERN? (J/N)- 
1270 CALL KEY(0,T,ST):: IF T 
=78 THEN 1010 ELSE IF T<>74 
THEN 1270 

1280 PRINT :"1 = »X*-AENDERN 
-: :-2 = ’Y’-AENDERN": :"3 = 

BEIDES" 

1290 CALL KEY <0,T,ST):: IF T 

=49 THEN ZZ=300 :: HIL=0 ELS 

E IF T=50 THEN ZZ=310 ELSE I 

F T=51 THEN ZZ=300 .' : HIL = 1 

ELSE 1290 

1300 GOTO 340 

1310 ZZ=300 :: GOTO 320 

1320 CALL CLEAR 

1330 CALL ERR(AAA,BBB,CCC,DD 

D) 

1340 PRINT "TERROR #";AAAJ"I 
N ZEILE"$DDD: : : : : 

1350 END 

1360 IF LI %- "EIN" THEN LI$=" 

AUS" ELSE LI$="EIN" 

1370 DISPLAY AT(15,19)SIZE(3 

) :li* 

1380 GOTO 1060 

1390 ! NULLSTELLENBERECHNUNG 
1400 CALL CLEAR 
1410 PRINT "BERECHNUNG DER N 
ULLSTELLEN": :"DER Y-FUNKTIO 
N DER": :"PARAMETERGLEICHUNG 
EN": : 

1420 DD=DA 

1430 E=(DE-DA)/20 :: H=lE-5 
1440 IF SGN(Y(DD))=SGN(Y <DD + 

E) )THEN DD=DD+E :: IF DD>DE 
THEN 1780 ELSE 1440 

1450 IF ABS<Y(DD+E))>=H THEN 
1470 

1460 DD=DD+E :: GOSUB 1500 : 

: GOTO 1430 

1470 IF ABS(Y(DD))>=H THEN 1 
490 

1480 GOSUB 1500 :: GOTO 1430 
1490 E=E/2 :: GOTO 1440 
1500 print :: print :: displ 
AY AT(23,1):USING -NULLSTELL 
EN BEI X = ###.####":X<DD) 

1510 DD=DD+H :: RETURN 

1520 REM 

1530 CALL CLEAR 

1540 PRINT "BERECHNUNG DER E 

XTREMWERTE": :"DER Y-FUNKTIO 

N DER": :"PARAMETERGLEICHUNG 

EN": : Ä 
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1350 DEF F(D)=(Y(D+H)-Y(D))/ 
(X(D+H)-X(D)) 

1560 DD=DA 

1570 E=(DE-DA)/20 :: H=lE-5 
1580 IF SGN(F (DD) )=SGN(F(DD+ 
E))THEN DD=DD+E :: IF DD>DE 
THEN 1780 ELSE 1580 
1590 IF ABS(F(DD+E))>=H THEN 
1620 

1600 IF SGN(F(DD))=-l THEN F 
11$=*'MINIMUM" ELSE FU*="MAXIM 
UM" 

1610 DD=DD+E :: GOSUB 1660 : 

: GOTO 1570 

1620 IF ABS(F(DD))>=H THEN 1 
650 

1630 IF SGN(F(DD + E))=1 THEN 
FU*="MINIMUM" ELSE FU$="MAXI 
MUM" 

1640 GOSUB 1660 :: GOTO 1570 
1650 E=E/2 :: GOTO 1580 
1660 PRINT :: PRINT :: DISPL 
AY AT(23,1):USING FU$&" BEI 
X = ###.####":X(DD) 

1670 DD=DD+H :: RETURN 

1680 REM 

1690 CALL CLEAR 

1700 PRINT "BERECHNUNG DER W 

ENDEPUNKTE": : "DER Y-FUNKTIO 

N DER": :"PARAMETERGLEICHUNG 

EN": : 

1710 DEF FF(D)=(Y<D+2*H)-2*Y 
(D+H) +Y (D) ) / (X (D+H) -X (D) ) A 2 
1720 DD=DA 

1730 E=(DE-DA)/20 :: H=2E-4 
1740 IF SGN(FF(DD))=SGN(FF(D 
D+E))THEN DD=DD+E :: IF DD>D 
E THEN 1780 ELSE 1740 
1750 IF ABS(FF(DD+E))<=H THE 
N PRINT :: DISPLAY AT(23,1): 
USING "WENDEPUNKT BEI X - ## 
#.###":x(DD+E):: dd=dd+e+h : 

: GOTO 1730 

1760 IF ABS(FF(DD))<=H THEN 
PRINT :: DISPLAY AT(23,1):US 
ING "WENDEPUNKT BEI X = ###. 

###":x(DD):: dd=dd+h :: goto 
1730 

1770 E=E/2 :: GOTO 1740 
1780 PRINT :: PRINT "BERECHN 
UNG BEENDET !" 

1790 CALL WAIT(4000):: GOTO 
1010 _ 

BÖRSE 


HILFE! Suche ganzes TI-99/4A Gehäuse für 
ca. 15 bis 20 DM. Angebote an Michael v.d. 
Mühlen, Tel. 02103/44144 
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* • * 

* Baustatik * 

* Copyright by * * 

* J. Picksak * 

* * 

* Bearbeitet vom * 

* Team des * 

* Aktuell Verlages • * 

* Muenchen * 

* * 

* Benoetigte Geraete * 

* TI99/4A Konsole * 

* Ext. Basic * 

* Drucker (optional) * 

* * 

* Speicherbelegung * 

* 4326 Bytes ’ * 


********************** 


295 ! 

300 CALL CLEAR 

310 DISPLAY TAB(10)J"COPYRIG 
HT BY" 

320 PRINT 

330 DISPLAY TAB(10)j"JOH.FR. 


PICKSAK" ‘ 

340 DISPLAY TAB(10)j"CIRKSEN 
ASTRASSE 3" 

350 DISPLAY TAB(10)J"TEL.049 
24/995" 

360 DISPLAY TAB(10)J"2956 OL 
DERSUM" 

370 PRINT 

380 DISPLAY TAB(10)i"BITTE W 
ARTEN! " 

390 FOR PAUSE=1 TO 1000 :: N 

EXT PAUSE 

400 CALL CLEAR 

410 DISPLAY AT(10,5)BEEP:"DU 

RCHBIEGUNG VON" 

420 DISPLAY AT(12,5):"EINFEL 
DTRAEGERN" 

430 DISPLAY AT(13,5):"====== 


440 PRINT 

450 DISPLAY AT(15,5):"GELENK 
IG GELAGERT";TAB(26)5"1" 

460 DISPLAY AT(17,5):"BEIDSE 
IT. EINGESP."?TAB(26)J"2" 

470 DISPLAY AT(19,10):"E N D 
E" J TAB(26)i"3" 

480 DISPLAY AT(23,7) *. "BITTE 
WAEHLEN !" 

490 ! WAEHLEN 

500 CALL KEY(0,R,ST) 

510 IF ST=0 THEN 500 

520 IF R<48 THEN 500 

530 IF R>51 THEN 500 

540 ON R-48 GOTO 550,1300,16 
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J 


550 CALL CLEAR 
560 DISPLAY AT(1,4):"TRAEGER 
GEL.GELAGERT" 

570 DISPLAY AT <2,4):"======= 

=== —__H 

580 DISPLAY AT(4,2)S"SPANNWE 
ITE = " :: ACCEPT AT(4,20):L 
590 DISPLAY AT(6,2):"TRAEGHE 
ITSM.(CM A 4)" :: ACCEPT AT(6, 
20):IX 

600 DISPLAY AT(8,2):"GLEICHL 
AST (KN/M)" :: ACCEPT AT(8,2 

0) :q 

610 ! 

620 DISPLAY AT(15,0):"DURCHB 
IGUNG INF.GLEICHLAST" 

630 FQM=<L"4*Q*0.62)/IX :: F 
QM=INT <FQM*100 + 0.5)/100 
640 DISPLAY AT(16,2):*- 


650 DISPLAY AT(18,10):"F(Q)= 
"iFQM}"CM" 

660 DISPLAY AT(20,2):"====== 


670 DISPLAY AT(22,2):"Y INFO 
LGE EINZELLASTEN?" 

680 DISPLAY AT<24,12):"-J/N- 
" II ACCEPT AT(24,22):0$ 

690 IF (0$="J")+(0$=" j " )THEN 
740 

700 IF (0$="N")+(0$=" n " )THEN 
710 

710 FKF=0 
720 CALL CLEAR 
730 GOTO 990 
740 CALL CLEAR 
750 DISPLAY AT(2,2):"ANZ. DE 
R EINZELLASTEN" :: ACCEPT AT 
(2,25):anz 
760 FKF=0 
770 FOR 1=1 TO ANZ 
780 DISPLAY AT<6,8):"F=" :: 
ACCEPT AT(6,12):F 
790 DISPLAY AT(8,8):"A=" :: 
ACCEPT AT(8,12):A 
800 LET B=L-A 
810 IF A<L/2 THEN 840 
820 IF A>L/2 THEN 830 
830 A=L-A :: B=L-A 
840 M0=L/4 :: MFM=(F*B/L)*A 
850 DELTA=0.5*MO*MFM*L/B 
860 EIY=(L/2)-(A A 2)*2/(3*L) 
870 FK(I)=100*(DELTA*EIY)/(2 
.1*IX) 

880 FKF=FKF+FK(I) 

890 NEXT I 

900 FKF=INT(FKF#100+0.5)/100 

910 LET FQMFKF=FQM+FKF 

920 CALL CLEAR 

930 DISPLAY AT(6,2):"DURCHBI 


EGUNG IN FELDMITTE" 

940 DISPLAY AT(8,10):"Y(Q)=" 
»FQM;"CM" 

950 DISPLAY AT(9,10):"Y(F)=" 
JFKFJ"CM" 

960 DISPLAY AT(10,10):"- 


970 DISPLAY AT(12,7):"SUMME 
F="»FQMFKF 

980 DISPLAY AT(13,2):"===== 


990 DISPLAY AT(15,1):"SOLL A 
USGEDRUCKT WERDEN7J/N" 

1000 CALL KEY(0,T,ST):: IF S 
T=0 THEN 1000 

1010 IF (T< >74 OR T< >78 OR T 
0106 OR T< >110) =-4 THEN 100 
0 

1020 IF T=78 OR T=110 THEN 1 
290 

1030 DISPLAY AT(17,2):"DRUCK 
EROPTIONEN" 

1040 POPT$="" 

1050 INPUT POPT$ 

1060 OPEN #1:POPT$,OUTPUT 
1070 PRINT #l:TAB<14);CHR$(1 
4) ; "DURCHBIEGUNG IN F.ELDMITT 
E" 

1080 PRINT «1:TAB(14)J"===== 


1090 PRINT #1 :: 

1100 PRINT #1:TAB(14)5"EINFE 
LDTRAEGER LAGERUNG:GELENKIG 
ODER EINGESPANNT." 

1110 PRINT #i: 

1120 PRINT #1:TAB(14);"TRAEG 
HEITSMOMENT IN CM"4=";IX 
1130 PRINT #1:TAB(14)»"SPANN 
WEITE IN METER="$ L 
1140 PRINT #l: 

1150 PRINT #l:TAB(14)J"LASTE 
N SIEHE STATIKSKIZZE" 

1160 PRINT #1:TAB(14); "- 


1170 PRINT #1:TAB<14);"Y (Q) 
IN FELDMITTE =";TAB(40);FQM 
J "CM" 

1180 PRINT #1:TAB(14)J"Y (F) 
-//- ="jTAB(40);FKF 

i "CM" 

1190 PRINT #1:TAB(14)j "- 


1200 LET FQMFKF=FQM+FKF 
1210 PRINT #l:TAB(14);"SUMME 
Y =";tab<40);fqm 

FKF i "CM" 

1220 PRINT #1:TAB(14)J"===== 
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1230 PRINT #l: 

1240 LET VZL=L*100/FQMFKF 

1250 VZL=INT(VZL*100+0.5)/10 
0 

1260 PRINT #1:TAB(14);“DURCH 
BIEGUNG ENTSPRICHT l:";VZL; 
"DER SPANNWEITE." 

1270 PRINT #l:TAB<14)5"- 


1280 CLOSE #1 

1290 GOTO 400 

1300 ! EINGESP. TRAEGER 

1310 CALL CLEAR ~ 

1320 DISPLAY AT(1,4):"EINGES 
P. TRAEGER" 

1330 DISPLAY AT(2,4):"====== 


1340 DISPLAY AT(4,2):"SPANNW 
EITE= H :: ACCEPT AT(4,20):L 
1350 DISPLAY AT(6,2):"TRAEGH 
EITSM.(CM A 4)=" :: ACCEPT AT( 
6,20):IX 

1360 DISPLAY AT(8,2):"GLEICH 
LAST (KN/N)= " :: ACCEPT AT(8 
,20)IQ ' 

1370 DISPLAY AT(15,0):"DURCH 
BIEGUNG INF.GLEICHLAST" 

1380 FQM=(L"4*Q*0.12)/IX :: 
FQM=INT(FQM*100+0.5)/100 
1390 DISPLAY AT(16,2): "- 


1560 LFR=(2*F*100)/(3*2.1*IX 
) 

1570 FK(I)=LFL*LFR 
1580 FKF=FKF+FK(I) 

1590 NEXT I 
1600 GOTO 900 
1610 STOP 


BUDDY 

BALLOON 


Ist ein Geschicklichkeits¬ 
spiel, das die ganze Koa- 
zentration in Anspruch 
nimmt. Es besteht aus 4 
verschiedenen Bildern, 
die jeweils 3mal durchlau¬ 
fen werden müssen. Am 
Anfang stehen 4 Spiel fi- 
guren zur Verfügung. 
Sollten Sie eine Runde 
nicht schaffen, ist eine Fi¬ 
gur verloren. Die Spielge¬ 
schwindigkeit nimmt von 
Runde zu Runde zu, die 
zur Verfügung stehende 
Zeit ab. 


Die Erklärungen zu den 
einzelnen Runden stehen 
in der Spielanleitung am 
Anfang des Spiels. 

Noch ein Tip zu Bild 1: 
Konzentrieren Sie sich 
nicht so sehr auf die 
Punkte, sondern auf den 
genauen Absprungzeit- 
punkl, um den nächsten 
Ballon zu erreichen. 

Und nun viel Vergnügen 
und ein absturzfreies 
Spiel. 

Fra jo Fry 


BILDMUSTER¬ 

GENERATOR 


1400 DISPLAY AT(18,10):"Y(Q) 
="JFQM;"CM" 

1410 DISPLAY AT(20,2):"===== 

1420 DISPLAY AT(22,2):"Y INF 
OLGE EINZELLASTEN?" 

1430 DISPLAY AT(24,12):"-J/N 
:: ACCEPT AT(24,22):OF$ 
1440 IF OF$="J" OR OF*="j" T 
HEN 1470 

1450 IF ÖF$="N" OR OF$="n" T 
HEN 1460 

1460 CALL CLEAR :: GOTO 990 
1470 ! EINZELLASTEN 
1480 CALL CLEAR 
1490 DISPLAY AT<2,2):"ANZ.DE 
R EINZELLASTEN?" :: ACCEPT A 
T(2,24):ANZ 

1500 FKF=0 :: FQMFKF=0 

1510 FOR 1=1 TO ANZ 

1520 DISPLAY AT(6,8):"F=" :: 

ACCEPT AT(6,12):F 
1530 DISPLAY AT(8,8) l "A=" :: 

ACCEPT AT(8,12)SA 
1540 LET B=L-A 
1550 LFL=(A A 2*B^3)/(3*L-2*A) 
"2 


Das Programm „Bildmu- Natürlich bietet das Pro- 
stergenerator“ ist gedacht gramm keinen vollwerti- 
für Femseh-Bastler, die gen Ersatz für einen rich- 
sich die Anschaffung eines tigen Bildmustergenerator, 
teuren „echten“ Bildmu- vor allem durch die Ein- 
stergenerators.sparen möch- schränkung des Formats 
ten. Es ermöglicht die Ein- am oberen und unteren' 
Stellung von Konvergenz, Bildrand. 

Bildlinearität, Zeilenlineari- Trotzdem stellt es eine 
tät, Kissenentzerrung, preiswerte Alternative für 

Grauabgleich, Farbwieder- Besitzer eines Home- 
gabe etc. Welche Arten Computers dar. 

von Testbildern erzeugt 
werden können, erklärt das 

Programm im Menü. Werner Liebender 


WESTERN 


Dieses Spiel wird bei eini¬ 
gen, die früher eine Atari- 
Spiel konsole besessen hat¬ 
ten, sicherlich Erinnerun¬ 
gen wachrufen. 

Es ist eine für den TI 99 
umgeschriebene Version ei¬ 
nes der Atari-Spielmodule. 
Zwei Revolverhelden tref¬ 
fen sich in der Wüste, um 


ihr tödliches Duell auszu¬ 
tragen. Als einzige Dek- 
kung steht ein Kaktus zwi¬ 
schen ihnen. Zwei Spieler 
steuern über Joystick die 
Revolverhelden in jede be¬ 
liebige Richtung des Bild¬ 
schirms. Durch den Feu¬ 
erknopf und Drücken des 

Bitte lesen Sie weiter auf Seite 35 
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100 
105 
110 
120 
130 
140 
150 
160 
162 
164 
166 
168 
170 
175 
180 
182 

190 CALL CHAR(64,"3C4299A1A1 
99423C"):: CALL CLEAR :: DIS 
PLAY AT(11,9):"BUDDY BALLOON 
" :: DISPLAY AT(13,8):"@ BY 
FRAJO FRY" 

200 FOR 1=1 TO 3 :: FOR J=ll 
0 TO 1100 STEP 110 :: CALL S 
ound(100,J,0):: next J :: fo 
R J = U00 TO 110 STEP -110 :: 

CALL SOUND(100,J,0):: NEXT 
J 

210 FOR J=110 TO 1100 STEP 1 
10 :: CALL SOUND(100,J,0,121 
0-j,0):: next J :: next i :: 

DISPLAY AT(24,4)BEEP:"SPIEL 
ERKLAERUNG (J/N)?" 

220 CALL KEY(0,K,S):: IF S=0 
THEN 220 II IF K=78 THEN 36 
0 ELSE IF K< >74 THEN 220 
230 CALL CLEAR :: DISPLAY AT 
(1,1):"1. BILD: DU MUSST VON 
BALLON”: :"ZU BALLON SPRING 
EN UND MOEG-”:- :"LICHST VIEL 
E PUNKTE TREFFEN." 

240 DISPLAY AT(8,1):"SPRUNGT 

aste: >space<" :: gosub 1500 

250 DISPLAY AT(1,1):"2. BILD 
: DU MUSST IN JEDER": :"ETAG 
E DIE 3 BALLONS BERUEH-": :" 
REN UND DANN ZUR TREPPE ZU-" 
: :"Rueckgehen. wenn dü den 
BAL-": : 

260 DISPLAY AT(9,1):"LON GAN 
Z OBEN BERUEHRST,": :"SCHWEB 
ST DU MIT IHM ZUR ERDE": :"Z 
URUECK. EIN KONTAKT MIT DEN" 
: :"WEISSEN KUGELN IST ZU VE 
R-": : 

270 DISPLAY AT(17,1):"MEIDEN 

.": : :"sprungtaste: >space< 
: "BEWgungstasten: >s< & > 
D< H :: GOSUB 1500 
280 DISPLAY AT(1,1):"3. BILD 
: DU MUSST IN DER 1.": :"UND 


3. ETAGE IM SPRUNG DEN": 
BLAUEN, IN DER 2. ETAGE DEN" 

: :"ROTEN BALLON BERUEHEN, U 
M": : 

290 DISPLAY AT(9,1):"EINE ET 
AGE HOEHER ZU GELAN-": :"GEN 
. WICHTIG IST EIN GENAUES": 

:"AN- UND ABSPRINGEN. ERST": 

:"GANZ OBEN GEHST DU ZUR TR 
EP-": :"PE ZURUECK." 

300 DISPLAY AT(20,1):"AN- UN 
D ABSPRUNG: >SPACE<": :"BEWE 

gung: >s< & >d<" :: gosub 15 
00 

310 DISPLAY AT(1,1):"4. BILD 
: DU MUSST MIT PFEI-": :"LEN 
AUF DEN BALLON SCHIESSEN" .* 
:"UND MOEGLICHST DEN HELLEN" 

: : "PUNKT TREFFEN. DADURCH”: 

• 

320 DISPLAY AT(9,1):"STEIGST 
DU DIE LEITER HINAB.": :"DA 
NACH GEHT ES WIEDER MIT": :" 
DEM 1. BILD WEITER.": : :"SC 
HUSSTASTE: >SPACE<" :: GOSUB 
1500 

330 DISPLAY AT(1,1):"DU HAST 
AM ANFANG 4 BUDDYS.”: :"DAS 
SPIEL BESTEHT AUS 3 RUN-": 

:"DEN. DIE SCHNELLIGKEIT": : 

"NIMMT JEWEILS ZU, DIE ZUR": 

• 

• 

340 DISPLAY AT(9,1):"VERFUEG 
UNG STEHENDE ZEIT AB.": :"NA 
CH JEDEM BILD GIBT ES DIE": 

:"RESTZEIT <*RUNDE) ALS BONU 
s.": :"SCHAFFST DU ALLE 12 B 
ILDER,": : 

350 DISPLAY AT(17,1):"GIBT E 
S FUER JEDEN UEBRIG-": :"GEB 
LIEBENEN BUDDY EINEN": :"SUP 
ERBONUS VON 1000 PUNKTEN.": 
:"VIEL SPASS BEI BUDDY BALLO 

ON M :: gosub 1500 

360 CALL CLEAR :: CALL SCREE 
N(ll):: CALL MAGNIFY (3) :: RA 
ndomize :: M=4 :: P=0 :: R=1 
:: T=40l :: z=ll 
370 CALL CHAR (96, "070F0F1E1A 
1A0A04070F1 72707070806C0E0 1 C 
420E10204080F8C0E0E0C0502") 
380 CALL CHAR(100,"030738427 
0080402011F030707030A04E0F0F 
07858585020E0F0E8E4E0E0106") 
390 CALL CHAR(104,"03070F0D0 
F0F0F0F0703000000000007C0E0F 
0F0F0F0F0F0E0C080402020C") 
400 CALL CHAR(108,"000000000 
B1A2A4A0A0A0A0B0000000000000 
000DE525252525252DE") 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


BUDDY BALLOON 
Copyright by 
Frajo Fry 

FUER TI/99/4A 
&£ Ext. Basic 

Speicherbelegung: 
11089 Bytes 


*** Einleitung *** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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410 CALL CHAR(112,"000000007 
B0A0A7A4242427B0000000000000 
000DE525252525252DE“) 

420 CALL CHAR(116,“000000007 
B0A0A7A0A0A0A7B0000000000000 
000DE525252525252DE H ) 

430 CALL CHAR(120,"000000000 
000000003070F0F0F0F070300000 
00000000000C0E0F0F0F0F0E0C") 
440 CALL CHAR(124,RPT$("0",4 
6)&"0402FF0204",128,"3844483 
07CB0306C") 

450 CALL CHAR(136,"E0E0E0FFF 
FE0E0E“,137,"070707FFFF07070 
7",138,"000000FF55FFAAFF"):: 

CALL C0L0R(14,13,1) 

460 CALL HCHAR(24,4,138,29): 

: CALL VCHAR(4,2,136,21):: C 
ALL VCHAR(4,3,137,21) 

470 CALL HCHAR(1,2,90):: CAL 
L HCHAR(1,10,80):: CALL HCHA 
R(i,20,72):: GOSUB 1450 
480 ! 1. BILD 

490 Z=Z-5 :: FOR 1=1 TO 19 S 
TEP 6 :: FOR J=i TO 3 :: CAL 
L SPRITE(#I+J,104,(I+2)/3+2, 
1*8+1,J*85-20):: NEXT J :: N 
EXT I 

500 FOR 1=1 TO 13 STEP 6 :: 
FOR J=1 TO 3 I: CALL SPRITE( 
#3+I+J,108,16,1*8+25,J*85-55 
):: NEXT J :: NEXT I 
510 A=1 :: CALL MOTION(#2,0, 
Z,#3,0,Z,#4,0,Z,#5,0,Z+3,#6, 
0,Z+3,#7,0,Z+3) 

520 CALL MOTION(#8,0,-Z,#9,0 
,-Z,#10,0,-Z,#ll,0,-Z-4,#12, 
0,-Z-4,#13,0,-Z-4) 

530 CALL MOTION(#14,0,Z,#15, 
0,Z,#16,0,Z,#17,0,Z+5,#18,0, 
Z+5,#19,0,Z+5) 

540 CALL MOTION(#20,0,-Z,#21 
,0,-Z,#22,0,-Z) 

550 CALL START(Y):i CALL MOT 
ION(#1,-6,0) 

560 CALL POSITION(#1,X,Y) 1\ 
IF X>21 THEN 560 :: CALL MOT 
ION (#1 y 0,0) 

570 FOR 1=2 TO 4 :: CALL COI 
NC(#1,#1,12,0:: IF C THEN C 
ALL MOTION(#1,0,Z):: GOTO 59 
0 

580 NEXT I :: GOTO 570 
590 IF A/2=INT(A/2)THEN CALL 
PATTERN(#1,100)ELSE CALL PA 
TTERN(#1,96) 

600 CALL KEY(0,K,S):: CALL T 
IME(T):: IF T=0 THEN T=801+R 
*150-ABS(Z)*100 :: GOTO 690 
610 IF K< >32 THEN 600 :: CAL 
L SOUND(-50,500,0):: CALL MO 


TION(#1,6,Z/2) 

620 CALL P0SIT-I0N(#1,X,Y) : : 

IF X>20+A*48 THEN 690 
630 IF XC166 THEN 650 :: Z=A 
BS(Z)+1 :: CALL MOTION(#1^0, 
0):: CALL LOCATE <#.l, 172, Y):: 

IF Z=R*2+7 THEN 710 
640 FOR 1 = 1 TO 13 STEP 6 : : 
FOR J=1 TO 3 :: CALL PATTERN 
(#3+I+J,92+(Z-2*R)*4):: NEXT 
j :: NEXT I :: goto 510 
650 FOR I=A*6-1 TO A*6+4 :: 
CALL COINC(#1,#I,10,0:: IF 
C THEN 670 

660 NEXT I :: GOTO 620 
670 IF I>A*6+1 THEN 680 :: C 
ALL SOUND(100,1000,0):: CALL 
DELSPRITE(#1):: P=P+ABS(Z*i 
00)-300-R*200 :: GOTO 620 
680 CALL POSITION(#I,Xi,Yl) : 

: CALL LOCATE(#1,21+A*48,Y1) 

:: z=-z :: call motion(#i, 0 , 
Z):: call points(P):: a=a+i 
:: GOTO 590 

690 CALL FALL-:: GOSUB 1440 

:: goto 510 

700 ! 2. BILD 

710 GOSUB 1460 :: GOSUB 1490 

:: for 1=6 to 18 step 6 :: 

CALL HCHAR(I,4,138,29)I: NEX 
T I 

720 FOR 1=1 TO 3 :: FOR J=2 
TO 8 STEP 3 :: CALL SPRITE(# 
I+J,104,1*2+3,J*i6+17,1*80): 

: next J :: next I 

730 FOR 1=1 TO 3 :: FOR J=i 
TO I :: CALL SPRITE(#11+I*J, 
120,16,220-I*48,J*(200-I*40) 

):: next J next i 

740 CALL SPRITE-<#2, 104,3, 15, 
120,0,Z) 

750 CALL START(Y):i IF A=4 T 
HEN 780 

760 CALL MOTION(#1,-6,0) . 

770 CALL POSITION(#1,XI,Y1) : 

; IF XI>A*48-17 THEN 770 
780 CALL MOTION(#1,0,0):: CA 
LL LOCATE<#l,A*48-20,14) 

790 CALL MOTION <#12,0,Z+2,#1 
3,0,Z,#15,0,Z,#14,0,Z-2,#17, 
0,Z-2,#20,0,Z-2) 

800 XX=X :: CALL KEY(0,K,S): 
: CALL TIME(T):: IF T=0 THEN 
T=151+(A-R)*50 :: GOTO 910 
810 IF K< >32 OR A=1 THEN 870 
820 FOR I=-24 TO 0 STEP 3 : : 
CALL MOTION(#1,I,XX):: NEXT 
I 

830 FOR I=A*3-3 TO A*3-l :: 
CALL C0INC(#1,#1,13,0 : : IF 
C=0 THEN' 850 :: CALL PATTERN 
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(#1,124-A*4):: W=W+1 
840 P=P+500-A*100 :: CALL PO 
INTS(P):: CALL SOUND(100,440 
, 0,660, 2 ,'880, 4) : I CALL DELSP 
RITE (#1) 

850 NEXT I :: FOR 1=0 TO 24 
STEP 3 :: CALL MOTION(#1,I,X 
X):: NEXT i :: call motion(# 
1 , 0 , 0 ) 

860 CALL PQSITI0N(#1,X1,Y1>: 

: CALL LOCATE(#1,A*48-20,Y1) 

:: goto 900 

870 X=0 :: IF K=83 THEN X=-4 
ELSE IF K=68 THEN X=4 
880 IF X=0 THEN 890 :: IF X= 
4 THEN CALL PATTERN<#1,96)EL 
SE CALL PATTERN(#1,100) 

890 CALL MOTION(#1,0,X*2):: 
CALL POSITION(#l,Xi,Yl):: IF 
Y1>242 THEN 910 :: IF Yl>13 
THEN 900 :: IF W< 3 THEN 910 
:: w=0 :: a=a-i :: goto 760 
900 CALL COINC(ALL,C):: IF C 
=0 THEN 800 :: IF A=i THEN 9 
20 

910 CALL DELSPRITE(#2):: FOR 
1=12 TO 20 :: CALL MOTION(# 
1,0,0):: NEXT i :: call fall 
:: gosub 1440 :: goto 740 
920 CALL MOTION(#1,0,0,#2,0, 
0):: CALL POSITION(#2,Xi,Yi) 
:: CALL LOCATE(#1,X1+16,Y1) 
930 CALL KEY(0,K,S):: CALL T 
IME(T):: IF T=0 THEN T=101-R 

*20 :: GOTO 910 

940 IF K=83 THEN X--4 ELSE I 

F K=68 THEN X=4 

950 CALL MOTION(#1,Z-2,X,#2, 
Z-2,X):: CALL COINC(ALL,C):: 
IF C THEN 910 

960 CALL POSITION(#1,XI,Yl): 

: IF Xl<167 THEN 930 

970 CALL MOTION(#2,0,0,#1,0, 

0):: CALL Position(# 1,x,Y):: 

CALL LOCATE(#1,172,Y) 

980 CALL PATTERN(#2,116):: P 
=P+300 :: CALL SOUND(250,800 
,0):: CALL POINTS(P):: call 
WAIT(100) 

990 GOSUB 1460 :: GOSUB 1490 
1000 ! 3. BILD 

1010 FOR 1=4 TO 14 :: CALL S 
PRITE(#I,120,16,1*8-15,1*16- 

10):: next i :: call sprite( 
#2,104,7,76,31,#3,104,5,124, 
235) 

1020 CALL START(Y):: IF A=1 
THEN 1040 :: CALL MOTION(#l, 
-6,0) 

1030 CALL POSITION(#1,X,Y):: 


IF X>223-A*48 THEN 1030 
1040 CALL MOTION(#1,0,0):: C 
ALL LOCATE(#1,220-A*48,24) 
1050 FOR 1=4 TO 14 :: CALL M 
OTION(#I,RND*Z+I,0):: NEXT I 
:: CALL MOTION(#2,-Z-2,0,#3 
9 "Z-2,0.) 

1060 CALL KEY(0,K,S):: CALL 
TIME(T):: IF T=0 THEN T=401- 
(A+R)*50 :: GOTO 1200 

1070 IF K< >32 THEN 1160 :: I 
F A=2 THEN V=2 ELSE V=3 
1080 FOR I=-24 TO 0 STEP 3 : 

: CALL MOTION(#l,1,0):: NEXT 
I :: IF A=4 THEN 1090 :: CA 
LL COINC(#l,#V,15-R,C):: IF 
C THEN 1110 

1090 FOR 1=0 TO 24 STEP 3 :: 

CALL MOT ION(#1,1,0);: NEXT 
I : : CALL MOTION(#1,0,0) 

1100 CALL POSITION(#1,XI,Yl) 
:: CALL LOCATE<#1,220-A*48,Y 
1) :: GOTO 1190 

1110 CALL MOTION<#V,0,0):: C 
ALL POSITION(#V,X2,Y2):: CAL 
L LOCATE (#1, X2+12, Y2) # : : CALL 
MOTION (#V, -Z+2,0,#1 , -Z+2,0) 
1120 CALL KEY(0,K,S):: CALL 
TIME(T):I IF T=0 THEN T=401- 
(A+R)*50 :: GOTO 1200 
1130 IF K< >32 THEN 1120 :: C 
ALL MOTION(#1,0,0,#V,-Z-2,0) 
:: CALL Position(# i,xi, yi):: 
W=ABS(X1-172+A*48):: IF W>2 
THEN 1200 

1140 CALL PATTERN(#V,116-W*4 
):: p=p+300-w*100 :: call so 
UND(500,880-W*220,0):: CALL 
POINTS(P) 

1150 CALL LOCATE(#1,172-A*48 
,Yl):: CALL PATTERN(#V,104)I 

: a=a+ l :: goto 1060 

1160 X=0 :: IF K=83 THEN X=- 
4 ELSE IF K=68 THEN X=4 
1170 IF X=0 THEN 1180 :: IF 
X=4 THEN CALL PATTERN(#1,96) 
ELSE CALL PATTERN(#1,100) 

1180 CALL MOTION(#1,0,X*2):: 

CALL POSITION(#1,XI,Yl):: I 
F Y1>242 THEN 1200 :: IF Yl< 
24 THEN IF A=4 THEN 1210 ELS 
E 1200 

1190 CALL COINC(ALL,C):: IF 
C=0 THEN 1060 

1200 FOR 1=2 TO 14 :: CALL M 
otion(#1,0,0):: NEXT I :: ca 
LL FALL :: GOSUB 1440 :: GOT 
0 1020 

1210 CALL MOTION(#1,0,0):: C 
ALL PATTERN(#1,96):: X=28 :: 
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CALL L0CATE(#1,X,13):: CALL 
PATTERN(#2,116,#3,116) 

1220 P=P+600 :: CALL SOUND(2 
50,800,0):: CALL POINTS(P):: 
CALL WAIT(500) 

1230 FOR 1=6 TO 18 STEP 6 :: 

CALL HCHAR<1,4,32,29) : : NEX 
t I :: gosub 1460 :: .gosub l 
490 

1240 ! 4. BILD 

1250 CALL SPRITE(#2,104,INT( 

4*RND)*2 + 3,240,INT(RND*160) + 

40) 

1260 CALL POSITION(#2,Xi,Yi) 
:: IF Xi+15<X THEN CALL MOTI 
ON(#2,-Z*1.5,0)ELSE CALL MOT 
ION(#2,-Z,0) 

1270 CALL KEY(0,K,S):: CALL 
TIME(T):: IF T >0 THEN 1300 : 

: t =451-x*2.5-r*10 :: call f 
all :: call delsprite(#2 ):: 
GOSUB 1440 

1280 CALL START(Y):: CALL MO 
TION(#1,-6,0) 

1290 CALL POSITION(#1,XI,Yl) 
:: if xi>x then 1290 :: call 
MOTION(# 1,0,0):: CALL LOCAT 
E(#1,X,13):: GOTO 1250 
1300 IF K< >32 THEN 1260 :: C 
ALL MOTION(#2,0,0):: CALL PO 
SITIGN(#2,X1,Yl) 

1310 FOR 1=0 TO 15 :: CALL S 
OUND<-20,1000+1*100,I) : : NEX 
T I 

1320 CALL SPRITE(#3,124,2,X, 
yi-16):: w=abs(X- xi+6):: if 
W>2 THEN CALL DELSPRITE(#3): 

: CALL MOTION(#2,-Z,0):: CAL 
L WAIT(40):: GOTO 1270 
1330 CALL SOUND(50,-5,0):: C 
ALL PATTERN(#2,116-W*4) : : P= 
P+300-W*100 :: CALL POINTS(P 
):: x=x+24-w*8 :: if x>172 t 
HEN X=172 

1340 CALL LOCATE(#1,X,13) i\ 
CALL DELSPRITE(#2,#3):: IF X 
<172 THEN 1250 
1350 CALL MOTION(#1,0,8) 

1360 CALL POSITION(#1,X,Y):: 

IF Y<250 THEN 1360 :: CALL 
DELSPRITE(#1):: GOSUB 1460 : 

: r=r+i :: if R<4 then gosub 
1490 :: GOTO 490 
1370 ! SPIELENDE 
1380 DISPLAY AT(9,7):"SUPER- 
BONUS*. M JM*1000 :: FOR 1=120 
TO 900 STEP 10 :: CALL SOUND 

(-10,1,1/60):: next I :: dis 

PLAY AT(9,7) 

1390. IF P< =H THEN 1410 :: H= 
P :: CALL HIGH(H) 


1400 FOR 1=220 TO 880 STEP 1 
10 :: CALL SOUND(200,I,0,I+2 
0,2,1+40,4):: NEXT I 
1410 CALL DELSPRITE(ALL):: R 
ESTORE 1520 :: FOR 1=1 TO 10 

:: read v :: call hchar 0?,i 

+11,V):: CALL SOUND(250,-5,0 
,110,2):: NEXT i 
1420 DISPLAY AT(15,4)BEEP:“E 
IN NEUES SPIEL (J/N)? H 
1430 CALL KEY(0,K,S):: IF S= 
0 THEN 1430 :: IF K=74 THEN 
360 :: IF K< >78 THEN 1430 :: 
CALL CLEAR :: END 

1440 z=ABS(Z):: m=m- l :: if 
M=0 THEN 1390 

1450 Y=256 :: CALL HCHAR (1,3 
0,32,3):: CALL HCHAR(1, 30 , 12 
8,M-l):: CALL TIME(T):: CALL 
POINTS(P):: CALL HIGH(H):: 
RETURN 

1460 FOR 1=2 TO 22 :: CALL D 
ELSPRITE (-#1):: NEXT I :: z=z 
+ i :: b=t*r Display at(9, 
10):"Bonus:";B 
1470 RESTORE 1510 :: FOR 1=1 

to 11 :: read v :: call sou 

ND(-100,V,0,V+2,0,V+4,0):: N 
EXT I 

1480 P=P+B :: CALL POINTS ( P ) 
:: CALL WAIT(50):: call soun 
D(-100,131,0,133,0,135,0):: 
DISPLAY AT(9,10):"" :: RETUR 
N 

1490 T=451-R*50 :: CALL TIME 
(T):: RETURN 

1500 DISPLAY AT(24,8):"TASTE 
DRUECKEN" :: CALL KEY(0,K,S 
):: IF S=0 THEN DISPLAY AT(2 
4,8):: GOTO 1500 ELSE CALL C 
LEAR :: RETURN 
1510 DATA 262,220,247,196,22 
0,175,196,165,175,147,165. 
1520 DATA 71,65,77,69,32,32, 
79,86,69,82 

1530 SUB START (Y):: CALL SPR 
ITE<#1,100,2,172,Y,0,-8) 

1540 CALL POSITION(#1,X,Y):: 
IF Y<7 OR Y>10 THEN 1540 :: 
CALL PATTERN(#1,96) 

1550 SUBEND 

1560 SUB FALL :: CALL MOTION 
(#1,10,0) 

1570 CALL POSITION(#1,C,D) : : 

CALL SOUND(50,C#10,0): : IF 
C<196 THEN 1570 
1580 CALL MOT I ON (#1,0,0) : : S 
ÜBEND 

1590 SUB POINTS(P):: DISPLAY 
at ( l,9 )size (7): P :: subend 
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NUTZEN SIE UNSEREN BEQUEMEN POSISERVKE 


TlfAs'ty 

I I MAGAZIN 

I l FÜR 

I I TI 99/4A 
MM&TI PC 

REVUE 


KOMMT REGELMÄSSIG 
ZU IHNEN 
INS HAUS 


Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
- fotokopieren oder abschreiben, in einen Brief¬ 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen— Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für sechs Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 


DAS SUPER-SONDER¬ 
ANGEBOT: 

PRIVATE 

KLEINANZEIGEN 

KOSTENLOS! 


Das bietet Ihnen ab sofort die TI REVUE KLEIN¬ 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN¬ 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver¬ 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief¬ 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele¬ 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

* ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In¬ 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 2,50 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gesfattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab¬ 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The¬ 
menkreis des Heftes — Computer — gehören, nicht ab¬ 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu¬ 
läßt. 
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KASSETTEN' 

SERVICE 

Wollt Ihr nicht mehr seitenlange Listings eintip¬ 
pen? Dann benutzt unseren Kassetten-Service: Für 
ganze zehn DM - nur Vorkasse, keine Rechnung - 
keine Nachnahme - erhalten Sie alle angebotenen 
Listings des jeweiligen Heftes auf Kassette per Post 
ins Haus. Achtung: Bestellungen ohne Geld werden 
nicht bearbeitet! Lieferzeit: In der Regel zwei bis drei 
Wochen! Wichtig: Unsere Kassetten werden digital in 
einem Profistudio von einem Masterband gezogen, 
nicht irgendwie per Recorder runtergenudelt. Selbst¬ 
verständlich volles Umtauschrecht bei Nichtfunktio- 
nieren. 



K 
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ABO SERVICE-KARTE 



Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 
sechs Ausgaben an untenstehende 
Anschrift. 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt wenn die Abo 
Gebühr dem Verlag 
zugegangen ist 


TI REVUE 

Abo-Service 9 
Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Name---— 

Vorname---^- 

Straße/Hausnr.--—:-- 

Ptz/Ort_:_:- 

Ich bezahle: 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort-— 

Kontonummer- 

BanWeitzahl_ r - 

(steht auf jedem Kontoauszug). 

Unterschrift___ 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Unterschrift_____ 
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RESERVIERUNGS-! 

SERVICE 

Assembler bietet dem, der damit umgehen kann, viele 
Möglichkeiten. Andererseits aber sind Assembler-Pro¬ 
gramme beim Abdruck im Heft sehr platzraubend. Aus r 
diesem Grund erarbeitet die Redaktion gerade ein As- t 
sembler-Special für alle Freunde dieser Programmier- | 
spräche. 1 1 

Dieses Heft wird voraussichtlich etwa zwischen dem | 
20. Dezember und 15. Januar 86 erscheinen, aber nur an | 
ganz gezielt ausgewählten Verkaufsstellen angeboten — | 
Bahnhofskiosken — Computershops usw. I 

Damit Sie nicht auf die Suche gehen müssen, können | 
Sie sich dieses Heft schon jetzt reservieren lassen. Ein- I 
fach den Coupon ausfüllen und — im Briefumschlag als I 
Drucksache oder auf eine Postkarte geklebt — absen- I 
den. I 

Als Gegenleistung für diese Ihre Mühe erhalten Sie I 
das Heft als Subskriptionsangebot sogar noch zehn Pro- I 
zent billiger — einschließlich unserer Versandspesen. I 
Nämlich für DM 17,80 statt zum Ladenpreis von DM 
19,80. 

ACHTUNG! Bitte kein Geld mitsenden, wir melden 
uns, wenn das Heft versandbereit ist. 


Auf besonderen Wunsch versenden wir auch über 
Nachnahme. Wir weisen aber ausdrücklich darauf hin, 
daß dadurch Mehrkosten von etwa DM 5,— Mark im In- 
und etwa DM 10,— im Ausland (Postgebühren!) entste¬ 
hen. 
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PROGRAMMSERVICE 

____ 

Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 
die Listings dieses Heftes auf 

□ Kassette (10 DM) 

□ Diskette (25 DM) 

Zutreffendes bitte ankreuzen I 
Ich zahle: 

per beigefügtem Scheck / Schein ( ) 

Gegen Vorausrechnung ( )— Versand am Tag des Geldeinganges 

Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname)....... 

Meine Kontonummer... 

Meine Bankleitzahl....(steht auf jedem Bankauszug) 

Vorname.Nachname... 

Str./Nr.PLZ/Ort .... •••■ 

Hiermit bestätige ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 
gelesen zu haben und zu akzeptieren. 

Unterschrift.. 

Bitte ausschneiden und einsenden an 
TI-REVUE i 
KASSETTENSERVICE 8 
Postfach 1107 
8044 Unterschleißheim 
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Kto-Nr.: -^_Bankleitzahl 

Bei (Bank und Ort)__ 

Name -:— 

Straße/Hausnr. ---- 

Ort/PLZ_ 














il+special+special+special 

SONDERHEFT NR. 2/85 

OM 14,80/ÖS 124/SFR 14,80 

* 

Anwender* 
Programme 
Utilities 

Schul-Program m e 
Spiele 
Adventures 



Rund 
150 
Seiten 
Listings 
für den 
99/4A 


SPIEL-SALON 
FÜR BUCHHALTER 
MUSIKER & 
SAMMLER 
MATHE-TABELLEN 
TORE 

DIE HANDWERKER 
KOMMEN 

FÜR JEDEN ETWAS 
WAS MAN SCHWARZ 


JETZT 
AN IHREM 
KIOSK 


AUF WEISS BESITZT 
SPRITE- 

KONSTRUKTEUR 


+ 


+ 



1600 SUB HIGH(H):: DISPLAY A 
t( i,19 )size(7);h :: subend 
1610 SUB time(T):: T=T-l :: 
DISPLAY AT(1,1)SIZE(4): t :: 
SUBEND 

1620 SUB WAIT(B):: FOR J = 1 T 

ob:: next j :: subend 


Fortsetzung von Seite 26 


Joysticks in die gewünsch¬ 
te Richtung, kann ein ge¬ 
zielter Schuß ausgelöst 
werden. Der Gegner muß 
nun versuchen, entweder 
zuerst einen Treffer zu er¬ 
zielen oder sich rechtzei¬ 
tig aus der Schußbahn zu 
entfernen. Der Kaktus 
kann hierzu eine große 
Hilfestellung sein. 

Ganz klar, daß für den zu¬ 
erst getroffenen Spieler 
das Spiel verloren und da¬ 
mit zu Ende ist, denn tote 
Revolverhelden schießen 
nicht. 


Anmerkung der 
Redaktion: 

Manche verdammen zwar die 
Ballerspiele in den Spielhal¬ 
len oder auf dem Heim-Com¬ 
puter. Dies ist jedoch kein 
Spiel, bei dem man alleine ge¬ 
gen den Computer antreten 
muß und der Kontaktarmut 
der Computer-Freaks weite¬ 
ren Vorschub leistet, sondern 
dieses Spiel erfordert einen 
„menschlichen“ Partner, der 
die andere Spielfigur steuert 
und durch Geschick und Ein¬ 
fallsreichtum versucht, die 
Situation zu meistern. 

Aus diesen Gründen heraus 
sehen wir dieses Spiel mehr als 
einen Geschicklichkeitsver¬ 
gleich zwischen zwei Partnern 
an und haben keine Beden¬ 
ken, es zu veröffentlichen. 



100 REM ** * ****** X * ******** 


110 REM * BILDMUSTER - * 
120 REM * GENERATOR * 
130 REM * COPYRIGHT 1985 * 
140 REM *Werner Liebender * 
150 REM * bearbeitet vom * 
160 REM * TEAM des * 
170 REM *AKTUELL VERLAGES * 
180 REM * MUENCHEN * 
190 REM *BENOTIGTE GERAETE* 
200 REM * TI99/4A KONSOLE * 
210 REM ^KASSETTEN - REC. * 
220 REM * * 
230 REM * SPEICHERPLATZ * 
240 REM * 4816 BYTES * 
250 REM * * 


260 REM ******************* 
270 CALL CLEAR 
280 CALL SCREEN(2) 

290 FOR X=1 TO 12 
300 CALL COLOR(X, 2,2 ) 

310 NEXT X 

320 PRINT TAB(5)5"BILDMUSTER 
GENERATOR" 

330 PRINT TAB(5)5"- 


340 

PRINT 

" >1< 

VERTIKALE LIN 

IEN' 

1 § • 

• fl 



350 

PRINT 

" >2< 

HORIZONTALE L 

inien": : 



360 

PRINT 

" >3< 

GITTERMUSTER" 

370 

PRINT 

" >4< 

WEISSES RASTE 

R": 

fl 

fl 



380 

PRINT 

" >5< 

SCHWARZES RAS 

TER' 

1 « • 

fl • 



390 

PRINT 

" >6< 

PUNKTRASTER": 

• 

400 

PRINT 

" >7< 

FARBBALKEN": 

410 

PRINT 

" >8< 

FARBEN": : : 

420 

PRINT 



. _ M 


430 

PRINT 

N 

• • • 

MIT LEERTASTE 


ZURUECK" 

440 CALL SCREEN(15) 

450 FOR X=1 TO 12 
460 CALL COLOR(X,2,15) 

470 NEXT X 

480 CALL KEY(0, K, S) 

490 IF S=0 THEN 480 

500 IF K<49 THEN 480 

510 IF K>56 THEN 480 

520 ON K-48 GOTO 530,630,730 

,1040,1080,1120,1200,1610 

530 CALL CLEAR 

540 REM *VERTIKALE LINIEN* 

550 CALL SCREEN(2) 

560 CALL COLOR(1,16,2) 
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570 A$= "101010101010X010» 

580 CALL CHAR(35,A$) 

590 FÜR X=1 TO 32 STEP 2 
600 CALL VCHAR(1, X,35,24) 

610 NEXT X 
620 GOTO 2130 
630 CALL CLEAR 

640 REM ^HORIZONTALE LINIEN* 
650 CALL SCREEN(2) 

660 CALL CQLGRd , 16,2) 

670 B$="000000FF00000000" 

680 CALL CHAR(36,B$) 

690 FOR X= 1 TO 24 STEP 2 
700 CALL HCHAR(X,1,36,32) 

710 NEXT X 

720 GOTO 2130 

730 CALL CLEAR 

740 REM *GITTERMUSTER* 

750 CALL SCREEN(2) 

760 CALL COLOR(l,16,2) 

770 A$="1010101010101010" 

780 B$="000000FF00000000" 

790 C$="101010FF10101010" 

800 CALL CHAR(35,C$) 

810 CALL CHAR<36,A$) 

820 CALL CHAR(37,B$) 

830 FOR X=1 TO 32 STEP 2 

840 FOR Z=1 TO 24 STEP 2 

850 CALL VCHAR(Z,X,35,1) 

860 NEXT Z 
870 NEXT X 

880 FOR X=1 TO 32 STEP 2 

890 FOR Z=2 TO 24 STEP 2 

900 CALL VCHAR(Z,X,36,1) 

910 NEXT Z 
920 NEXT X 

930 FOR X=2 TO 32 STEP 2 

940 FOR Z=i TO 24 STEP 2 

950 CALL VCHAR(Z,X,37,1) 

960 NEXT Z 
970 NEXT X 

980 CALL COLOR(1,16,2) 

990 GOTO 2130 
1000 CALL SCREEN(2) 

1010 CALL COLOR(1,2,2) 

1020 CALL COLOR(1,16,2) 

1030 GOTO 2130 
1040 CALL CLEAR 
1050 CALL SCREEN(16) 

1060 CALL COLOR(1,16,16) 

1070 GOTO 2130 
1080 CALL CLEAR 
1090 CALL SCREEN(2) 

1100 CALL COLOR(1,2,2) 

1110 GOTO 2130 

1120 CALL CLEAR 

1130 REM *PUNKTRASTER* 

1140 CALL SCREEN(2) 

1150 CALL COLOR(1,16,2) 


1160 C$="0000000010000000« 
1170 CALL CHAR(37,C$) 

1180 CALL VCHAR(1,1,37,8£4) 

1190 GOTO 2130 

1200 CALL CLEAR 

1210 REM *FARBBALKEN* 

1220 CALL SCREEN(2) 

1230 D$="FFFFFFFFFFFFFFFF M 
1240 CALL COLOR(1,7,2) 

1250 CALL CHAR(33,D$ ) 

1260 CALL VCHAR(1,5,33,48) 
1270 CALL COLOR(2,9,15) 

1280 CALL CHAR(41,D$) 

1290 CALL VCHAR(1,7,41,48) 
1300 CALL COLOR(3,10,15) 

1310 CALL CHAR(48,D$ ) 

1320 CALL VCHAR(1,9,48,48) 
1330 CALL COLOR(4,13,15) 

1340 CALL CHAR(58,D$) 

1350 CALL VCHAR(1,11,58,48) 
1360 CALL COLOR(5,3,15) 

1370 CALL CHAR(64,D$) 

1380 CALL VCHAR(1,13,64,48) 
1390 CALL COLOR(6,4,15) 

1400 CALL CHAR ( 74,D$) 

1410 CALL VCHAR(1,15,74,48) 
1420 CALL C0L0R(7,11,15) 

1430 CALL CHAR(81,D$) 

1440 CALL VCHAR(1,17,81,48) 
1450 CALL C0L0R(8,12,15) 

1460 CALL CHAR(92,D$) 

1470 CALL VCHAR<1,19,92,48) 
1480 CALL COLOR(9,14,15) 

1490 CALL CHAR(96,D$) 

1500 CALL VCHAR(1,21,96,48) 
1510 CALL COLOR(10,5,15) 

1520 CALL CHAR(104,D$) 

1530 CALL VCHAR(1,23,104,48) 
1540 CALL COLOR(11,6,15) 

1550 CALL CHAR(112,D$) 

1560 CALL VCHAR(1,25,112,48) 
1570 CALL COLOR(12,8,15) 

1580 CALL CHAR(123,D$) 

1590 CALL VCHAR(1,27,123,48) 
1600 GOTO 2130 
1610 CALL CLEAR 
'1620 REM *FARBEN* 

1630 CALL SCREEN(2) 

1640 FOR X=1 TO 12 
1650 CALL COLOR(X,2,2) 

1660 NEXT X 

1670 PRINT TAB(9)$"FARBAUSWA 
HL" 

1680 PRINT TAB (9) ; "- 

_ _ H . t . 

1690 PRINT H >1< ROT” 

1700 PRINT ”>2< GRUEN" 

1710 PRINT ">3< BLAU" 

1720 PRINT ">4< GELB" 
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1730 PRINT " >5< MAGENTA" 
1740 PRINT ">6< GRAU": : : 


1750 

CALL 

SCREEN(15) 

1760 

FOR X=1 TO 12 

1770 

CALL 

COLOR(X,2,15) 

1780 

NEXT 

X 

1790 

CALL 

KEY(0,K,S) 

1800 

IF S= 

=0 THEN 1790 

1810 

IF K= 

=32 THEN 270 

1820 

IF K>56 THEN 1790 

1830 

IF K<49 THEN 1790 

1840 

ON K- 

-48 GOTO 1850,1890 

1930, 

1970, 

, 2010,2050 

1850 

CALL 

CLEAR 

1860 

CALL 

SCREEN(9) 

1870 

CALL 

COLOR(1,9,9) 

1880 

GOTO 

2090 

1890 

CALL 

CLEAR 

1900 

CALL 

SCREEN(3) 

1910 

CALL 

COLOR(1,3,3) 

1920 

GOTO 

2090 

1930 

CALL 

CLEAR 

1940 

CALL 

SCREEN(6) 

1950 

CALL 

COLOR(1,6,6) 

1960 

GOTO 

2090 

1970 

CALL 

CLEAR 

1980 

CALL 

SCREEN(11) 

1990 

CALL 

COLOR(1,11,11) 

2000 

GOTO 

2090 

2010 

CALL 

CLEAR 

2020 

CALL 

SCREEN(14) 

2030 

CALL 

COLOR(l,14,14) 

2040 

GOTO 

2090 

2050 

CALL 

CLEAR 

2060 

CALL 

SCREEN(15) 

2070 

CALL 

COLOR(l,15,15) 

2080 

GOTO 

2090 

2090 

CALL 

KEY(0,K,S) 

2100 

IF S= 

=0 THEN 2090 

2110 

IF K< >32 THEN 2090 

2120 

IF K= 

=32 THEN 1610 

2130 

CALL 

KEY(0,K,S) 

2140 

IF 8= 

=0 THEN 2130 

2150 

IF K<>32 THEN 2130 - 

2160 

IF K s 

=32 THEN 270 


BÖRSE 


Suche Kontakte zu TI99/4A Besitzer (auch 
Wissensch. Anwend.) im Raum Göttingen / 
Kass. WHXBREW 0551/71785 


Suche Monitor für TI99/4A U.S.-Bauart am lieb¬ 
sten Farbe mit NTSC Anschluß. Um 400 DM. 
0551/71785 


Verk. TI+Ex-Basic-Programme. Info g. Rückpor¬ 
to. B. Knedel, Tulpengasse 16, 3171 Weyhausen 
Tel. 05362/71187 


100 

i 

********************** 

110 

i 

* 


* 

- 120 

i 

* 

WESTERN 

* 

. 130 

1 

* 


* 

140 

1 

* 

Copyright by 

* 

150 

1 

* 


* 

160 

i 

* 

H.-P. KREUTZ 

* 

170 

i 

* 


* 

190 

i 

* 

Benoetigte Geraete 

* 

200 

« 

* 

TI99/4A Konsole 

* 

210 

i 

* 

Ext. Basic 

* 

220 

1 

* 


* 

260 

i 

* 

Speicherbelegung 

* 

270 

1 

* 

4470 Bytes 

* 

280 

i 

* 


* 

290 

i 

********************** 


300 CALL CLEAR :: CALL SCREE 
N < 12 ) 

310 CALL CHAR(91,"3C4299A1A1 
99423C",104, M 1858587A1A1E181 
8 " ) 

320 CALL CHAR(105,"1858587A1 
A1E182E",106,"24A495492A1C18 
3E " ) 

330 CALL CHAR(100,"000000000 
0000003030000000000000000000 
000000000C0C000000000000000" 
) 

340 CALL CHAR(108,"010107090 
10003672B1100010204040CC0C8F 
0C0C080E0F3EAC400C020101018" 
) 

350 CALL CHAR(112,"020100010 
10003672B1100010204040C20408 
0C0C080E0F3EAC400C020101018" 
) - . 

360 CALL CHAR(40,"0000000000 
0000000C8780F50D9DA047000000 
0000000000080484DEFEDE4482") 
370 CALL CHAR(60,"0000000000 
0000003804825B3FDB0201000000 
000000000000091562607905E2") 
380 CALL CHAR(132,"010420006 
84402010100000000044000C0460 
084808CAEC6C0A6908194044010" 
) 

390 CALL CHAR(36,"0040201C1C 
1D03070F17234020100000000C08 
10E00080C0C0F9858280F01020") 
:: CALL CHAR(119,"8484A4A5ED 
EDFFFF") 

400 CALL CHAR(96,"0000020508 
181000000324281000000020160F 
0F8F7E797C7AF1212121100818") 
410 randomize :: Pi,P2=0 :: 
Sl=l :: S2=0 :: Ai,A2=0 
420 CALL CLEAR :I CALL MAGNI 
FY (3) 

430 DISPLAY AT(6,8) 1 "W E S T 


»fr 
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ERN" :: CALL SPRITE(#1,10 
8,5,80,198,0,0):: CALL SPRIT 
E(#2,112,7,80,40,0,0) 

440 CALL C0L0R(11,13,1):: CA 
LL HCHAR(12,1,119,32):: DISP 
LAY AT(15,4):"PRESS ANY KEY 
TO START" 

450 DISPLAY AT(22,6):"C KREU 
TZ,HANS-PETER" :: DISPLAY AT 
(24,8):"2000 HAMBURG 71" 

460 CALL SOUND(500,146,0):: 
CALL SOUND(250,130,0):: CALL 
SOUND(250,123,0):I CALL SOU 
ND(125,146,0):! CALL S0UND(2 
50,195,0) 

470 CALL SOUND(125,220,0):: 
CALL SOUND(1000,246,0):: CAL 
L SOUND(500,195,0):: CALL SO 
UND(200,3000,30):I CALL SOUN 
D(1000,196,0,262,0,330,0) 

480 FOR 1=1 TO 40 :: NEXT I 
490 CALL KEY(0,K,S):: IF S=0 
THEN 490 

500 P1,P2=0 :: CALL CLEAR :: 

CALL SCREEN(12) 

510 CALL HCHAR(1,1,119,32):: 
DISPLAY AT(23,2):"INDIAN 1: 

.COWBOY 2:" 

520 DISPLAY AT(24,3):""J PI : 

: DISPLAY AT(24,21): MM JP2 
530 CALL COLOR(10,13,15) 

540 FOR 1=1 TO 12 
550 X=INT(RND*20)+1 :: Y=INT 
<RND*28)+1 d CALL HCHAR(X+2 
,Y,105):I CALL HCHAR(X+l,Y,1 
04) 

560 N=INT(RND*27)+1 :: M=INT 
(RND*27)+1 

570 DISPLAY AT(N+2,M)SIZE(1) 
:CHR$(106) 

580 NEXT I 

590 CALL SPRITE(#1,112,9,(RN 
D*200)+l,32) 

600 CALL SPRITE(#2,108,5,(RN 
D*200)+1,240) 

610 CALL J0YST(1,X1,Y1):: IF 
X1O0 THEN 660 :: CALL MOTI 
ON(#1,-2*Y1,0) 

620 CALL J0YST(2,X2,Y2):: IF 
X2O0 THEN 690 :: CALL MOTI 
ON(#2,-2*Y2,0) 

630 CALL KEY(1,K,S):: IF K=1 
8 THEN 720 

640 CALL KEY(2,K,S):: IF K=1 
8 THEN 850 
650 GOTO 610 

660 IF Xl=4 THEN 670 ELSE 68 
0 

670 Sl=l :: CALL PATTERN(#1, 
112):: CALL motion(# 1 , 0 , 8 ):: 
GOTO 620 


680 S1=0 :: CALL PATTERN(#2, 
108):: CALL MOTION(#1,0,-8): 

: GOTO 620 

690 IF X2=4 THEN 700 ELSE 71 
0 

700 S2=l :: CALL PATTERN(#1, • 
112):: CALL MOTION(#2,0,8):: 
GOTO 630 

710 S2=0 :: CALL PATTERN(#2, 
108):: CALL MOTION(#2,0,-8): 

: GOTO 630 

720 CALL MOTION(#l,0,0):: CA 
LL POSITION(#1,A,B) 

730 IF Si=l THEN 750 
740 CALL SOUND(50,-6,0):: CA 
LL SOUND(70,-7,0)I: CALL SPR 
ITE(#8,132,16,A-l,B-8,0,0):: 

CALL SPRITE(#3,100,16,A-l,B 
-8,0,-40)I: GOTO 760 
750 CALL SOUND(50,-6,0):: CA 
LL SOUND(80,-7,0):: CALL SPR 
ITE(#7, 132,16,A-1,B + 8,0,0):: 

CALL SPRITE(#3,100,16,A-l,B 
+8,0,40) 

760 CALL DELSPRITE(#7,#8) 

770 FOR 1=1 TO 15 
780 CALL COINC<ALL,C):: IF C 
THEN 820 

790 CALL J0YST(2,X2,Y2):: CA 
LL MOTION(#2,-2*Y2,2*X2) 

800 NEXT I 

810 CALL DELSPRITE(#3):: P2= 
P2+20 :: DISPLAY AT(24,21): " 

";P2 :: goto 610 
820 CALL DELSPRITE(#3):: CAL 
L MOTION(#2,0,0):: FOR 1=1 T 
0 40 :: CALL PATTERN(#2,96): 

: next i :: call pattern<#2 , 

40) 

830 P1=P1+100 :: DISPLAY AT( 
24,3)SIZE(10):""JP1 
840 FOR 1=1 TO 200 :: NEXT I 
:: CALL PATTERN(#2,108):: A 
1=A1+1 :: IF Al=50 THEN 
980 :: GOTO 610 
850 CALL MOTION(#2,0,0):: CA 
LL POSITION(#2,A,B) 

860 IF S2=l THEN 880 
870 CALL SOUND(50,-6,0):: CA 
LL SOUND(70,-7,0):: CALL SPR 
ITE(#8,132,16,A-l,B-8,0,0):: 

• CALL SPRITE(#4,100,16,A-l,B 
-8,0,-40):: GOTO 890 
880 CALL SOUND(50,-6,0):: CA 
LL SOUND(70,-7,0):: CALL SPR 
ITE(#7,132,16,A-l,B+8,0,0):: 

CALL SPRITE(#4,100,16,A-l,B 
+8,0,40) 

890 CALL DELSPRITE(#7,#8) 

900 FOR 1=1 TO 15 

910 CALL COINC(ALL,C):: IF C 
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THEN 950 

920 CALL J0YST(1,X1,Yl):: CA 
LL MOTION(#1,-2*Y1,2*X1) 

930 NEXT I 

940 CALL DELSPRITE(#4):: Pl= 
PI+20 :: DISPLAY AT <24,3)SI2 

E(l0):"";Pl :: goto 610 

950 CALL DELSPRITE(#4):: CAL 
L MOTION(#1,0,0):: FOR 1=1 T 
0 40 :: CALL PATTERN(#1,36): 

: next i :: call pattern<#i, 
60) 

960 P2=P2+100 :: DISPLAY AT( 
24,21) I ""J P2 

970 FOR 1=1 TO 200 :: NEXT I 

:: call pattern(#i,112):: a 

2=A2+1 :: IF Ai=50 THEN 
980 :: IF A2=50 THEN 980 :: 


GOTO 610 

980 FOR 1=1 TO 3 :: CALL SOU 
ND(100,262,0):: CALL SOUND(1 
00,330,0):: CALL SOUND(100,3 
. 92,0):: NEXT I 
990 DISPLAY AT(10,6)S“G A M 
E - 0 V E R“ :: FOR 1=1 TO 1 
00 :: NEXT I 

1000 DISPLAY AT(10,6): MM :: 
FOR 1 = 1 TO 100- :: NEXT I 
1010 DISPLAY AT(24,2):"WISH 
YOU A NEW GAME... J/N M :: C 
ALL KEY(0,K,S):: IF S=0 THEN 
990 :: IF K=78 THEN 1030 EL 
SE 1020 

1020 CALL DELSPRITE (ALL) : .* G 
OTO 410 
1030 END 


KAVALKADE 


Die Idee dazu hatte ich 
beim Reversi spielen. Der 
Grundgedanke ist folgen¬ 
der: Zwei Spieler setzen 
abwechselnd Steine auf 
die Spielfelder und kön¬ 
nen sie sich gegenseitig ab¬ 
jagen. Auf jedes Feld kön¬ 
nen mehrere Steine ge¬ 
setzt werden. Sind aber 
auf einem Feld so viele 
Steine wie Nachbarfelder, 
so werden diese auf alle 
benachbarten Felder ver¬ 
teilt. Nur so kann man 
gegnerische Steine Für sich 
gewinnen. Wenn einer der 
Steine auf ein vom Geg¬ 
ner besetztes Feld Fällt, 
werden dann die fremden 
Steine zu eigenen. 
Gewonnen hat, wer sei¬ 
nem Mitspieler alle Spiel¬ 
steine abgenommen hat. 
Hört sich nicht besonders 
kompliziert an. Die auf¬ 
tretenden Kettenreaktio¬ 
nen konnte ich aber nur 
durch zwei Unterprogram¬ 
me, die sich gegenseitig 
mit GOSUB aufrufen, in 
den Griff bekommen. Je¬ 
de andere Lösung wäre 
viel zu langsam. Um das 


Haben Sie Ihre Tiefkühl¬ 
truhe voll bis oben hin, 
wissen Sie noch was Sie 
alles gelagert haben und 


Programm weiter zu be¬ 
schleunigen, mußte X- 
Basic her. Es ginge natür¬ 
lich auch in Basic. Aber 
gegen Spielende sind die 
Wartezeiten auch so 
recht lang. Noch schneller 
wäre KAVALKADE, 
wenn man die „Begleit¬ 
musik“ wegläßt und die 
neue Spielsituation erst 
auf dem Bildschirm dar¬ 
stellt, wenn die Berech¬ 
nung abgeschlossen ist. 
Aber das würde recht lang¬ 
weilig, weil sich auf dem 
Fernseher dann nicht 
mehr viel tut. 

Übrigens läßt sich das 
Spiel leicht verändern, z.B. 
indem man das Prüffeld 
anders belegt. 

Und: Keine Sorge, der Sta¬ 
pel mit den Rücksprung¬ 
adressen kann nicht grö¬ 
ßer als 260 Byte werden. 
Wenn nämlich 261 Steine 
auf dem Brett sind, gibt 
es eine „ewige“ Ketten¬ 
reaktion. Sobald aber alle 
Steine eine Farbe haben, 
bricht das Spiel ab. Einer 
von beiden Spielern hat 


wann die einzelnen Lebens¬ 
mittel verfallen? Nein? 

Ab sofort ist dies kein Pro¬ 
blem mehr für Sie. Lassen 


Sie doch den Computer 
den Inhalt Ihrer Truhe 
verwalten. 

In Sekundenschnelle wis¬ 
sen Sie, welche Lebens¬ 
mittel überlagert sind 
oder sofort verbraucht 
werden müssen. 

Ein komfortables Menü 
Führt Sie durch das ganze 
Programm. Als Auswahl¬ 
möglichkeiten stehen Ih¬ 
nen Kassettenrekorder 
oder Diskettenstation, 
sowie 10 weitere Funktio¬ 
nen zur VerFügung. Wol¬ 
len Sie die einzelnen Funk¬ 
tionen vor Programmbe¬ 
ginn erklärt haben, so ru¬ 
fen Sie durch Drücken der 
Taste -J- die Beschreibung 
auf. 

Den Inhalt Ihrer Tiefkühl¬ 
truhe können Sie in 5 
Kategorien trennen: 

1. Fleisch, 2. Gemüse, 

3. Fisch, 4. Backwaren, 

5. Sonstiges. 

Ist die Kategorie gewählt, 
fordert der Computer nun 
Angaben über das Lebens¬ 
mittel, welches Sie einfrie- 
ren wollen. Im Dialog mit 
dem Computer geben Sie 
nun Art des Lebensmittels, 
Stückzahl, Gewicht, Halt¬ 
barkeitsdatum und Tag 
des Einfrierens ein. In der 
letzten Zeile haben Sie 
noch die Möglichkeit eine 
Bemerkung zu dem Le¬ 
bensmittel abzugeben. 
Sollten Ihnen die Anga¬ 
ben zu umfangreich sein, 
drücken Sie bei den An¬ 
gaben, die Sie nicht für 
nötig halten einfach 
-ENTER- Lebensmittel, 
die aus der Gefriertruhe 


gewonnen. Reinhardt Kern 


TIEFKUHLKOST 


genommen werden, kön¬ 
nen schnell und problem¬ 
los gelöscht werden. 
Wollen Sie eine Gesamt¬ 
übersicht über den Inhalt, 
würden Sie gerne wissen, 
welche Fleischsorten noch 
vorrätig sind oder ob Sie 
das eingefrorene Gemüse 
nächsten Sonntag noch 
verwenden können? Fra¬ 
gen Sie den Computer, er 
hat es Für Sie gespeichert. 
Selbstverständlich können 
Sie den Inhalt Ihrer Truhe 
auch sortieren lassen. 
Möchten Sie das Pro¬ 
gramm beenden, so ge¬ 
schieht dies mit der -9- 
im Hauptmenü. Zuvor 
speichert der Computer 
die einzelnen Datensätze 
jedoch wieder auf das ge¬ 
wählte Speichersystem 
zurück, damit Ihnen keine 
Informationen verloren 
gehen. 

Haben Sie noch keine 
Tiefkühltruhe? Nachdem 
Sie dieses Programm aus¬ 
getestet haben, werden 
Sie sich bestimmt bald 
eine zulegen. 

B. Knedel 


Die nächste 
TI-REVUE 
am 27 . Dez. 
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der 


Felder 


und ohne Kop-fbild. 

200 DIM SF1(9,9),SF2<9,9),PF 
(9,9) 

210 !** PGMABTAST ABSCHALTEN 
220 GOTO 270 .'VARIABLENLISTE 


230 C,CT,I,J,2(l),2(2),B$,SP 

,SN,X,Y,K,S,E,F 

240 !** CALL-LISTE ** 

250 CALL CLEAR :: CALL COLOR 

:: call screen :: call char 
:: CALL charpat :: CALL SOU 
ND :: CALL HCHAR :: CALL KEY 
260 CALL SPRITE :: CALL LOCA 
TE 

270 !@P- 

280 CALL CHAR(123,“004400384 
47C44440044007C4444447C00440 
04444444438") .'UMLAUTE AE, OE, 
UE(KLEIN) 

290 CT=2M 1/12) .'HALBTONOPERA 
TOR 

300 !*** INTRO *** 

310 CALL COLOR(2,1,1):: CALL 
CLEAR :: CALL SCREEN<5) 

320 FOR 1=1 TO 3 :: PRINT "* 
*..*";TAB(25)i"**" :: next i 
:: print "**.*.,.***..**..* 
..***..**" 

330 PRINT "***...**..*.**..* 
.**..*.**..****..**..*.**..* 
.*#.i*.**..**.**.*****.***** 
.*****.**. .**. .*.**. .*..***. 
.**..*.**" 

340 PRINT "**..*.**..*...*.. 
.**..*.****": :RPT$(“*",28): 

• 

350 FOR 1=1 TO 3 :: PRINT ". 

-*";TAB<22);"*" :: NEXT I 

360 PRINT ".*..**..***.. 

. **. *. . ***.*.**.. *****. 


**•**.***.*.....***.,.**..*. 
** .. * . ** ..*..... ** . * . . ** ., * . 
**..*.**.*" 

370 PRINT ".**.*..***** 

**..*.***.......**..*.**. C *. 

**..*.**..* . **..*.**..*. 

.****..***.SPIELANLEITUN 

G? <J\N>" 

380 CALL COLOR(2,RND*12+4,3) 
:: CALL SOUND(-400,110*CT A (R 
ND*48+1),2)::' CALL KEY(3,K,S 
):: IF S=0 THEN 380 
390 IF K=78 THEN GOTO 500 EL 
SE IF K< >74 THEN GOTO 380 
400 !*** SPIELREGELN *** 

410 CALL CLEAR :: FOR 1=0 TO 
12 :: CALL COLOR(1,1,1):: n 
EXT I :: CALL SCREEN(4) 

420 PRINT TAB(10);"KAVALKADE 
":"ein Strategiespiel f)r Zw 
ei": :"Staple Steine auf dei 
ne Fel-der, bis eines explod 
iert. " 

430 PRINT “Die Trimmer werde 
n auf d i e. . Nachbarf e 1 der ver 
teilt und..kinnen Felder des 
Gegners ineigene umwandeln. 

H • • 

440 PRINT “Starte die Ketten 
reaktion...und besiege Deine 
n Gegner!": :"Beeile Dich! D 
ein Gegner.... kann Dich im n 
'chsten Zug...besiegen!": : 
450 PRINT "Steuere mit den P 
■feil tasten und setze Steine 
mit ’A’. ..Aber: Falsch gese 
tzte Steinek!nnen nicht zur) 
ckgesetzt..werden!": : 

460 PRINT "Bitte eine Taste 
drucken."; 

480 FOR 1=0 TO 12 :: CALL CO 
LOR(I,16,5):: NEXT I 
490 CALL KEY(0,K,S):: IF S=0 
THEN 490 

500 !*** SPIELFELD ERSTELLEN 
510 CALL CLEAR :: FOR 1=0 TO 

12 :: call color( i,2 ,i):: n 
EXT I - - 

520 CALL CHARPAT(63,B$):: CA 
LL CHAR(64,B$) 

530 CALL CHAR(126,""):: B$=" 
0000183C3C180000003C7E7E7E7E 
3C003C7EFFE7E7FF7E3CFFFFFFFF 
FFFFFFFF" :: CALL CHAR(60,B$ 

):: CALL CHAR(108,B$) 

540 CALL C0L0R(3,16,4,4,16,4 
,9,13,8,10,13,8,12,5,16) 

550 CALL SCREEN(11) 

560 FOR 1=5 TO 8 :: CALL COL 
OR(I,13,1):: NEXT I 








570 FOR 1=48 TO 57 :: CALL C 
HARPAT(1.6$):: CALL CHAR(I+5 
&EXT I ! ZWEITEN ZAHL 

INMREICH EINRICHTEN ( 98-107) 


580 FOP 1=1 TO 8 :: PF(1,0), 
PF(0,1)=3 :: for J=l TO 8 :: 
pf(I,j)=4 :: next J :: PF(I 
,9),PF(9,I)=3 :: NEXT I 
590 PF(0,0),PF(0,9),PF(9,0), 
PF (9, 9)=2 !PRUEFFELD BELEGT 
600 FOR 1=3 TO 12 :: CALL HC 
HAR(I,7,126,10):: NEXT I ISP 
IELBRETT 

610 DISPLAY AT(2,5):"ABCDEFG 
HIJ" :: DISPLAY AT(13,5)I"AB 
CDEFGHIJ" 

620 FOR 1=1 TO 10 :: CALL HC 
HAR(2 + I,6,47+I,i) : : CALL HCH 
AR(2+1,17,97+1,1):: NEXT I 
630 CALL CHAR(97,"FF31818181 
8181FF"):: CALL SPRITE(#2,97 
,2,17,49) 

640 DISPLAY AT(15,l): : : : 


650 FOR 1=0 TO 9 :: FOR J=0 

TO 9 :: SF1(I,J),SF2(I,J)=0 

:: NEXT J :: NEXT I 

700 !**** HAUPTPROGRAMM 

710 !** STEINE SETZEN 

720 Z(i),Z(2),X,Y=0 !ZAEHLER 

»CURSORPOSITION 

730 SF=2 !SP=SPIELER AM ZUG 

740 SN=1 !SN=NICHT AM ZUG 

750 SP=-i*(SP=2)-2*(SP=i> 

760 SN=-1*(SN=2)-2*(SN=1) 

770 DISPLAY AT(18,2):"AM ZUG 
IST SPIELER"f SP 
780 DISPLAY AT(20,2):"SETZE 
EINEN STEIN." 

790 CALL SOUND(-200,880,4,-8 
,0) ' 

800 I* EINGABE PER CURSOR 
820 CALL KEY(i,K,S):: K=K + 1 
:: IF K=2 THEN GOTO- 910 ELSE 
IF S=0 THEN GOTO 820 
830 E=(K=3)+(K=5)+(K=16)-(K= 
4)-(K=7)-(K=15):: F=(K=1)+(K 
= 16) +(K=15)-(K=6)-(K=5)-(K=7 
) • ' 

840 X=X+E :: Y=Y-F 

850 X=INT(10*(X/10-INT(X/10) 

) ) 

860 Y=INT(10*<Y/10-INT<Y/10) 

) ) 

870 CALL L0CATE(#2,i+(Y+2)*8 
,1+(X+6)*8):I GOTO 820 
900 !AUSWERTEN DER EINGABE 
910 IF SF2(X,Y)=SN THEN CALL 
SOUND(200,-5,0,880,0):: GOT 
0 770 

920 SF2(X,Y)=SP :: SF1(X,Y)= 


sfi(X,Y)+ 1 :: Z(SP)=Z(SP)+i 
!Z=ANZAHL DER STEINE,SF ERHO 
EHEN 

930 DISPLAY AT(5,20): M Z(1)"J 
Z (1) :: DISPLAY AT(7,20):"Z(d 
) H iZ<2) 

940 CALL HCHAR(Y+3,X+7,SF1(X 
,Y)+59-48*(SP=2))!DARSTELLEN 
AM BILDSCHIRM 

950 IF SFI (X, Y) >=PF (X, Y) THEN 
gosub 1000 :: C=0 
960 GOTO 750 

1000 !*** EXPLODIEREN *** 
1010 .'ALTEN STEIN LOESCHEN 
1020 SFI(X,Y),SF2 (X, Y)=0 :: 
CALL HCHAR(Y+3,X+7,126) 

1030 I* NEUE STEINE SETZEN * 
1040 IF Y >0 THEN Y=Y-1 :: GO 
SUB 1100 :: Y=Y +1 
1050 IF X>0 THEN X=X-1 :: GO 

sub 1100 :: x=x+l 

1060 IF X< 9 THEN X=X + 1 :: GO 

sub 1100 :: x=x-l 

1070 IF Y< 9 THEN Y = Y + 1 :: GO 
SUB 1100 :: Y=Y-l 
1090 RETURN 

1100 !** STEINE SETZEN ** 
1120 Z(SN)=Z(SN)+SF1(X,Y)*(S 
F2(X,Y)=SN) 

1130 Z(SP)=Z < SP)-SF1(X,Y) *( S 
F2(X,Y)=SN) 

1140 SF2(X,Y)=SP 

1150 SFI(X, Y)=SF1 (X,Y) +1 IST 

EINE REGULIERT 

1160 DISPLAY AT (5,20) "Z (1) " 
j Z(1):: DISPLAY AT(7,20)!"Z( 
d) "}Z(2) 

1170 CALL SOUND<-450,440*CT A 
(X+Y+1),1) 

1180 CALL HCHAR(Y+3,X+7,SFi( 
X,Y)+59-48*(SP=2)) 

1190 IF Z(SN)<1 THEN GOTO 12 
50 

1200 IF SFI(X,Y)>=PF(X,Y)THE 
N GOSUB 1000 
1220 RETURN 

1230 !*** SPIELENDE *** 

1250 FOR 1=1 TO 3 :: CALL SO 
UND(200,110,1,220,1):: CALL 
SOUND(900,349,0,440,2,523,3, 
-3,5):: NEXT I 

1270 DISPLAY AT(15,1): : : : 

::::::: DISPLAY. at< 16, 
1):"BRAVO, SPIELER"iSP:"HAT 
GEWONNEN.": :"WOLLT IHR NOCH 
MAL SPIELEN®"J"(J/N)" 

1280 CALL KEY(3,K,S):: IF S= 
0 THEN GOTO 1280 
1290 IF K=74 THEN GOTO 600 E 
LSE IF K< >78 THEN 1280 
1300 RUN "" !=NEW 
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Benoetigte Geraete 
TI99/4A Konsole 
Ext. Basic 
Kass.Rec od. Floppy* 
Drucker moeglich * 

* 

Speieherbe1egung * 
8964 Bytes * 


********************** 


CALL CL 
TIEFKUE 
:::::: :"Dis 

CASSETTE?": :"D 0 

IF S=0 


0N WARNING NEXT 
OPTION BASE 1 : 

:: PRINT ". 

HLK0ST": : : : : : 

KETTE ODER 

der C": : 

330 CALL KEY ( 0, K, S) 

THEN 330 

340 1$=“ DSK1 .TIEF" 

350 IF K=68 OR K=100 THEN 37 
0 ELSE IF K=67 OR K=99 THEN 
360 ELSE 330 
360 I*="CSl" 

370 DIN NR(50),KA$(50),A$(50 
),ST(50),GR(50),T(50),M(50), 
J(50),BE$(50),D*(50) 

380 PRINT "BITTE DATUM EINGE 
BEN.": : : 

390 INPUT "TAG....TT? ":T2 : 

: INPUT "MONAT..MM? ":M2 :: 
INPUT “JAHR...JJ? ":J2 
400 print 

BESCHREIBUNG (J/N)" 

410 CALL KEY(0,K,S):.* IF S=0 
THEN 410 

420 IF K=74 OR K=106 THEN 26 

10 ELSE IF ( (KO78)0R(K<>110 

))=0 THEN 410 

430 CALL CLEAR 

440 PRINT “....PROGRAMMENUE” 


450 PRINT 
ERGAENZEN" 
460 PRINT 
470 PRINT 
HUNG" 

480 PRINT 
CHE" 

490 PRINT 


1 NEUEINGABE- 

2 AENDERN" 

3 EINZELLOESC 

4 KATEGORIESU 

5 EINZELSUCHE 


500 PRINT 
T" 

510 PRINT 
HE" 

520 PRINT 
530 PRINT 
E" 

540 PRINT 
SEN": : : 
550 INPUT 
CH 


"....6 GESAMTINHAL 

"....7 STICHTAGSUC 

"....8 SORTIEREN* 
"....9 PROGRAMMEND 

“...10 DATEN EINLE 

ff 

"SIE WUENSCHEN? ": 


560 IF CH=9 THEN GOSUB 660 : 


: END 

570 IF CH=10 THEN 610 


580 IF CH<1 OR CH>10 THEN 55 


0 

590 ON CH GOSUB 1660,1260,18 
80,1000,2120,700,2270,2780 
600 GOTO 430 

610 OPEN #1:1$,INPUT ,FIXED 
192,INTERNAL 
620 INPUT #1:NF 
630 FOR X=i TO NF 
640 INPUT #l:NR(X),KA$(X>,A$ 
(X),ST(X),GR(X),T(X),M(X),J( 
X),D$(X>,BE$(X):: NEXT X 
650 CLOSE #1 :: GOTO 430 
660 OPEN #l:1$,OUTPUT,INTERN 
AL,FIXED 192 
670 PRINT #1:NF 
680 FOR X=1 TO NF 
690 PRINT #l:NR(X),KA$(X),A$ 
(X),ST(X),GR(X),T(X),M(X),J( 
X),D*(X) ,be*(X):: next x :: 
CLOSE #1 :: RETURN 
700 CALL CLEAR :: PRINT "SIE 
HABEN"INF :: PRINT "LEBENSM 
ITTEL GESPEICHERT." :: PRINT 
"LISTE AUF BILDSCHIRM ODER" 
:: PRINT "DRUCKER?" 

710 PRINT : :“EINGABE=B ODER 
D" :: PRINT "ENDE=E" 

720 CALL KEY(0,K,S):: IF S=0 
THEN 720 

730 IF K=68 OR K=100 THEN 90 
0 

740 IF K=66 OR K=98 THEN 760 
750 IF K=69 OR K=101 THEN 43 
0 ELSE 720 

760 CALL CLEAR :: FOR X=1 TO 
NF 

770 PRINT "KATEGORIE="» KA$(X 
):: PRINT "NR. :"SNR(X) 

780 PRINT “ART : H iA$(X):: P 
RINT H STK.:"JST(X) 

790 PRINT "GEW.:" i GR (X) 

800 GOSUB 2770 

810 PRINT "HALTBAR BIS...: " 

J X$ 

820 PRINT "EINGEFROREN AM: " 
JD$(X) 
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830 PRINT “BEMERKUNG:- 
840 PRINT BE$(X) 

850 PRINT " WE ITER=LEERTASTE" 
:: PRINT "ENDE=E" 

860 CALL KEY<0,K,S>:: IF S=0 
THEN 860 

870 IF K=69 0R K=101 THEN 43 
0 

880 IF K< >32 THEN 860 

890 CALL CLEAR :: NEXT X :: 

RETURN 

900 OPEN #2:"PI0" 

910 PRINT #2:"LEBENSMITTELLI 
STE..STAND : -JT2i M ."fM2*-. M 
I J2 

920 FOR X=1 TO NF 

930 PRINT #2:CHR$(14) J 

940 PRINT #2:KA$(X),A*(X) 

950 PRINT #2:CHR$(15)i 
960 GOSUB 2770 

970 PRINT #2:"NR. ="J X, H GRAMM 
= “;GR(X),"STCK. = "»ST(X), , "HA 
LTBAR Bis: ";x$ 

980 PRINT #2:“BEMERKUNG:"J BE 

$(X) 

990 NEXT X :: CLOSE #2 :: RE 
TURN 

1000 PRINT "KATEGORIE:" 

1010 PRINT -1=FLEISCH" :: PR 
INT "2=GEMUESE M :: PRINT "3= 
FISCH" :: PRINT "4=BACKWAREN 
" :: PRINT "5=S0NSTIGES“ 

1020 PRINT : M SIE WUENSCHEN ? 

u 

1030 CALL KEY(0,AA,S):: IF S 
=0 THEN 1030 

1040 IF AA<49 OR AA>53 THEN 
1020 

1050 AA=AA-48 

1060 IF AA=1 THEN N$=“FLEISC 
H" 

1070 IF AA=2 THEN N$="GEMUES 
E" 

1080 IF AA=3 THEN N$="FISCH" 
1090 IF AA=4 THEN N$=“BACKWA 
REN" 

1100 IF AA=5 THEN N*="SONSTI 
GES" 

1110 FOR X=1 TO NF 
1120 IF KA*CX)ON* THEN 1250 
1130 CALL CLEAR :: PRINT "KA 
TEGORIE=-,*KA*(X) : : PRINT “NR 
- *-JNR(X) 

1140 PRINT “ART. . . = -?A$<X): 

: PRINT °STK..JST(X) 

1150 PRINT "GRAMM.="JGR<X) 
1160 PRINT "HALTBARKEIT BIS 
: "l 

1170 GOSUB 2770 :: PRINT X$ 

1180 PRINT “EINFRIERTAG. 

:"JD$(X> 


1190 PRINT "BEMERKUNG:" 

1200 PRINT BE*(X) 

1210 PRINT :"WEITERSUCHEN=LE 
ERTASTE- :: PRINT "ENDE=E" 
1220 CALL KEY(0,K,S):: IF S= 
. 0 THEN 1220 
1230 IF K=32 THEN 1250 
1240 IF K=69 OR K=101 THEN 4 
30 ELSE 1220 

1250 NEXT X :: PRINT :-NICHT 
S MEHR GEFUNDEN.“ :: FOR A=1 

to iooo :: next a :: return 

1260 CALL CLEAR :: INPUT "WE 
LCHE NUMMER ? “:N 
1270 FOR X=1 TO NF 
1280 IF NR(X)< >N THEN 1380 
1290 CALL CLEAR :: PRINT “VO 
R DER AENDERUNG:" 

1300 PRINT "KATEGORIE=";KA$( 
X):: PRINT "NUMMER= H JNR(X) 
1310 PRINT "ART...=.. n iA$(X) 
:: PRINT "STUECK=."jST(X) 
1320 PRINT "GRAMM.=."?GR(X) 
1330 GOSUB 2770 
1340 PRINT "HALTBARKEITSDAT. 
= "JX$ 

1350 PRINT M EINFRIERDATUM= “ 
JD$(X) 

1360 PRINT "BEMERKUNG: " BE$ 
(X) : 




1370 GOTO 1390 
1380 CALL CLEAR :: NEXT X :: 
PRINT "NICHTS MEHR GEFUNDEN 
." :: for A=i to iooo :: nex 


T A 

:: RETURN 

1390 

PRINT 

: H WAS SOLL GEAEND 

ERT WERDEN 

? " 

1400 

PRINT 

“1=KATEG0RIE" 

1410 

PRINT 

"2=ART“ 

1420 

PRINT 

“3=STUECK" 

1430 

PRINT 

"4=GRAMM" 

1440 

PRINT 

"5=HALTBARKEITSDA 

TUM" 



1450 

PRINT 

"6=EINFRIERDATUM" 

1460 

PRINT 

“7=BEMERKUNG" 

1470 

PRINT 

“8=ENDE H 

1480 

PRINT 

:-SIE WUENSCHEN ? 


1490 CALL KEY (0, CH y S) .* : IF S 
=0 THEN 1490 

1500 IF CH<49 OR CH>56 THEN 
1480 

1510 ON CH-48 GOTO 1520,1530 
,1540,1550,1560,1600,1610,43 
0 

1520 INPUT "DIE NEUE KATEGOR 
ie= u :ka$(X) :: goto 1620 
1530 INPUT “DIE NEUE ART= ": 
A«(X):: GOTO 1620 
1540 INPUT "DIE NEUE STUECKZ 
AHL= -:ST (X) :: GOTO 1620 
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1550 INPUT "DIE NEUE GRAMMZA 
HL*= ":GR(X) :: GOTO 1620 
1560 PRINT "NEUES HALTBARKEI 
TSDATUM=" 

1570 INPUT "TAG...":T(X) 

1580 INPUT "MONAT.":M(X) 

1590 input "JAHR..":J(X>:: g 
OTO 1620 

1600 INPUT "NEUES EINFRIERDA 
TUM= ":D*<X)s: GOTO 1620 
1610 PRINT "NEUE BEMERKUNG= U 
:J INPUT BE*(X) 

1620 PRINT :"NOCH ETWAS AEND 
ERN (J/N)?" 

1630 CALL KEY(0,K,S):: IF S= 
0 THEN 1630 

1640 IF K=74 OR K=106 THEN 1 
290 ELSE IF (K<>78 OR KOllO 
)=0 THEN 1620 
1650 RETURN 

1660 CALL CLEAR :: NF=NF+1 
1670 PRINT "KATEGORIE:“ 

1680 PRINT "1=FLEISCH" :: PR 
INT "2=GEMUESE" :: PRINT "3= 
FISCH" :: PRINT "4=BACKWAREN 
" :: PRINT H 5=S0NSTIGES" :: 
PRINT :"SIE WUENSCHEN ?" 

1690 CALL KEY(0,AA,S):: IF S 
=0 THEN 1690 

1700 IF AA<49 OR AA>53 THEN 
1690 

1710 AA=AA-48 :i IF AA=1 THE 
N KA$(NF)= "FLEISCH" 

1720 IF AA=2 THEN KA$(NF)=“G 
EMUESE" 

1730 IF AA=3 THEN KA$(NF)="F 
I SCH" 

1740 IF AA=4 THEN KA*(NF)="B 
ACKWAREN" 

1750 IF AA=5 THEN KA$(NF)="S 
ONSTIGES" 

1760 NR(NF)=NF :: CALL CLEAR 
:: PRINT "KATEGORIE "JKA*(N 
F):: PRINT "NR.="JNR(NF) 

1770 INPUT "ART.= 

":A*(NF> 

1780 INPUT "STUECK.= 

":ST(NF) 

1790 INPUT "GRAMM.= 

"!GR <NF) 

1800 PRINT "HALTBAR BIS ZUM 

?" 

1810 INPUT "TAG...=":T(NF) 
1820 INPUT "MONAT.=":M(NF> 
1830 INPUT "JAHR.J(NF) 
1840 PRINT "EINGEFROREN AM ( 
TT.MM.JJ)" 

1850 INPUT D$(NF) 

1860 PRINT "BEMERKUNG ?" 

1870 INPUT BE$<NF):: RETURN 
1880 CALL CLEAR 


1890 PRINT "WELCHER EINTRAG 
SOLL" :: PRINT "GELOESCHT WE 
RDEN ?" 

1900 INPUT "NR. =":N 
1910 FOR X=1 TO NF 
1920 IF NR(X)< >N THEN 2090 
1930 CALL CLEAR :: PRINT "SO 
LL DER EINTRAG GELOESCHT" :: 

PRINT "WERDEN ?" 

1940 PRINT "KATEGORIE=";KA$< 

X):: PRINT "NR.=" J NR (X) 

1950 PRINT "ART....= "JA$(X) 
:: PRINT "STK....="J ST(X) 
1960 PRINT "GRAMM..="?GR(X) 
1970 PRINT "EINFRIERDATUM=“; 
D*(X) 

1980 GOSUB 2770 

1990 PRINT "HALTBAR BIS..: " 

IX* 

2000 PRINT "BEMERKUNG=" 

2010 PRINT BE$(X) 

2020 PRINT :: PRINT "EINTRAG 
LOESCHEN (J/N)?" 

2030 CALL KEY(0,K,S):: IF S= 
0 THEN 2030 :: CALL CLEAR 
2040 IF K=74 OR K=106 THEN 2 
110 ELSE IF K< >78 OR KOllO 
THEN 2030 

2050 PRINT "WEITERSUCHEN J 0 
DER N? M 

2060 CALL KEY(0,K,S);: IF S= 
0 THEN 2060 

2070 IF K=74 OR K=106 .THEN 2 
090 

2080 IF K=78 OR K=110 THEN 4 
30 ELSE 2060 
2090 NEXT X 

2100 PRINT "NICHTS MEHR GEFU 
NDEN." :: FOR A=1 TO 1000 :: 

NEXT A :: RETURN 
2110 GOSUB 2580 :: RETURN 
2120 INPUT "WAS SUCHEN SIE ( 
ARTIKEL)?...":N$ 

2130 FOR X=1 TO NF 

2140 IF A$(X)=N* THEN 2170 . 

2150 NEXT X 

2160 PRINT :"NICHTS MEHR GEF 
UNDEN." :: FOR A=1 TO 1500 : 
: NEXT A :: RETURN 
2170 CALL CLEAR :: PRINT "KA 
TEGORIE="?KA$(X):: PRINT "NR 
. ="iNR(X) 

2180 PRINT "ART....= "?A$(X) 
:: PRINT "STK...,=";ST(X) 
2190 PRINT "GRAMM.. = "J GR(X): 
: GOSUB 2770 

2200 PRINT "HALTBAR BIS..: " 
$ X$ 

2210 PRINT "EINFRIERDATUM= " 
JD*(X) 

2220 PRINT "BEMERKUNG:" :: P 
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RINT BE*IX) 

2230 PRINT :"WEITER J ODER N 
?" 

2240 CALL KEYIO,K,S):: IF S= 
0 THEN 2240 

2250 IF K=74 OR K=106 THEN 2 
150 

2260 IF K=78 OR K=UO THEN 4 
30 ELSE 2240 

2270 CALL CLEAR :: PRINT "WA 
S MUSS WANN HERAUSGENOMMEN" 

:: PRINT "WERDEN ?" 

2280 PRINT :"BITTE DATUM EIN 
GEBEN.": 

2290 INPUT "TAG..=":TI :: IN 
PUT "MONAT=":Ml :: INPUT "JA 

hr . =": j l :: call clear ... 

2300 FOR X=1 TO NF 
2310 IF T(X)=T1 AND M(X)=M1 
AND J(X)=J1 THEN 2450 
2320 IF J(XXJ1 THEN 2460 
2330 IF T(X)<T1 AND M(X)=M1 
AND J(X)=J1 THEN 2460 
2340 IF T(X)<TI AND M(X)=M1 
AND JfXXJl THEN 2460 
2350 IF T (X ) < TI AND MIXXMl 
AND JIXXJl THEN 2460 
2360 IF T (X) >T1 AND MIXXMl 
AND JIXXJl THEN 2460 
2370 IF T(X)>T1 AND MIXXMl 
AND J(XXJ1 THEN 2460 
2380 IF T (X) <TI AND MIXXMl 
AND JIXXJl THEN 2460 
2390 IF T(X)=T1 AND M(X)=M1 
AND JIXXJl THEN 2460 
2400 IF T (X) =T 1 AND MIXXMl 
AND JIXXJl THEN 2460 
2410 IF T IX)=T1 AND MIX)>M1 
AND JIXXJl THEN 2460 
2420 IF T IX) =T1 AND MIXXMl 
AND JIXXJl THEN 2460 
2430 IF TIX)>T1 AND M(X)>M1 
AND JIXXJl THEN 2460 
2440 GOTO 2570 
2450 PRINT "DIESES LEBENSMIT 
TEL MUSS" :: PRINT "SOFORT V 
ERBRAUCHT WERDEN.": : : :: C 
ALL SOUND 1800,440,0):: GOSUB 
2770 :: GOTO 2480 
2460 PRINT "DIESES LEBENSMI 
TTEL IST ZU" :: PRINT "DEM A 
NGEGEBENEN DATUM" :: PRINT " 
verfallen.": : : :: call sou 

NDI800,440,0) 

2470 GOSUB 2770 :: GOTO 2480 
2480 PRINT "KATEGORIE:"jKA$I 
X):: PRINT "NR....="JNRIX) 
2490 PRINT "ART...= " J A$IX): 

: PRINT "STCK..="JSTIX):: PR 
INT "GRAMM.="JGRIX) 

2500 GOSUB 2770 :: PRINT "HA 


LTBAR BIS:" JX* 

2510 PRINT "EINFRIERTAG:";D* 
(X) 

2520 PRINT "BEMERKUNG" :: PR 
INT BE$IX) : : 

2530 PRINT :"WEITERSUCHEN J 
ODER N?" 

2540 CALL KEYIO,K,S):: IF S= 
0 THEN 2540 :: CALL CLEAR 
2550 IF K=74 OR K=106 THEN 2 
570 

2560 IF K=78 OR K=110 THEN 4 
30 ELSE 2540 

2570 NEXT X :: PRINT .'"NICHT 
S MEHR GEFUNDEN." :: FOR A=1 

to iooo :: next a :: return 

2580 FOR X=N TO NF-1 
2590 KA*(XXKA*IX + 1) : : A$(X) 
=A$(X+l):: ST(X)=STIX+1):: G 
RIX)=gr( x + 1 ):: T (X) =T (X+l ):: 
M ixxm (X+l):: J(X)=J(X+l):: 
D$(X)=D$IX+1) 

2600 BE$(X)=BE$IX+1):: NEXT 
X :: NF=NF-1 :: RETURN 
2610 CALL CLEAR 
2620 PRINT : :"N E U E I N G 

a b E": : :"SiE koennen neu 
E EINGABEN,":"NACH KATEGORIE 
N GETRENNT,IN":"IHRE GEFRIER 
TRUHE EINGEBEN.": : : : : : 
2630 PRINT : : :"BITTE EINE 
TASTE DRUECKEN." 

2640 CALL KEY(0,K,S):: IF S= 
0 THEN 2640 :: CALL CLEAR 
2650 PRINT "A E N D E R N": 

: : :"sie koennen jede einga 
BE":"INNERHALB EINER LAUFEND 
EN":"NUMMER AENDERN.NACH DER 
AEN-":"DERUNG WIRD NACH "i 
2660 PRINT "WEITEREN ":"AEND 
ERUNGEN GEFRAGT.J ODER N": : 

.' :"EINZELLOESCH 

u N-": : : m sie koennen jede 

BELIEBIGE" 

2670 PRINT "EINTRAGUNG L0ESC 
HEN.": :"BITTE EINE TASTE DR 
UECKEN." 

2680 CALL KEYIO,K,S):: IF S= 
0 THEN 2680 :: CALL CLEAR 
2690 PRINT "KATEG0RI 
E s u c h E M : : : :"hierbei 

KOENNEN SIE IHRE":"TRUHE NAC 
H BESTIMMTEN KATE-":"GORIEN 
DURCHSUCHEN.11-5)": : : :• 
2700 PRINT "EINZELSU 
CHE": : :"BEI DER EINZELSU 

CHE KOENNEN":"SIE NACH BESTI 
MMTEN ARTEN":"SUCHEN.IKUCHEN 
oder PIZZA)": : : 

2710 PRINT "BITTE EINE TASTE 
DRUECKEN." 
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2720 CALL KEY(0,K,S):: IF S= 
0 THEN 2720 :: CALL CLEAR 
2730 PRINT "GESAMTIN 
HALT": : !"HIERBEI WIRD D 
ER GESAMTE IN-":"HALT IHRER 
TRUHE AUF DEM":"BILDSCHIRM 0 
DER DRUCKER":"AUSGEGEBEN.": 
2740 PRINT : : : :-s T I c H 
TAGSUCHE": : :"NACH 
EINGABE EINES DATUMS":"SAGT 
IHNEN DER RECHNER,":"WELCHE 
LEBENSMITTEL VER-" 

2750 PRINT "BRAUCHT WERDEN M 
UESSEN.": :"BITTE EINE TASTE 
DRUECKEN." 

2760 CALL KEY(0,K,S):: IF S= 
0 THEN 2760 :: CALL CLEAR :: 
GOTO 430 

2770 X*=STR$(T(X) )k". M E<STR*( 
M(X))^". M 6cSTR$(J(X)):: RETUR 
N 

2780 CALL CLEAR :: PRINT “DA 
TEI WIRD SORTIERT.“ 

2790 FOR 1 = 1 TO NF.-l :: FOR 
L=1 TO NF-I 


2800 IF KA$(L)<KA$(L+l>THEN 
2850 

2810 H$=KA$(L):: KA$(L)=KA$( 
L+l):: ka*(L+1)=h* :: GOSUB 
2860 

2820 IF KA$(L)OKA$ (L + l) THEN 
2850 

2830 IF A$(L)<A$(L+l)THEN 28 
50 

2840 GOSUB 2860 

2850 NEXT L :: NEXT I :: RET 

URN 

2860 H$=A$(L):: A*(L)=A$(L+1 
):: A$(L+l)=H$ :: H=ST(L):: 
st(L)=st(L+ l):: st(L+ l)=H :: 

H=GR(L):: GR(L)=GR(L+1):: G 
R(L+l)=H 

2870 H=T(L):: T(L)=T(L+l):: 

T(l+ l )=h :: h=m(L):: M(L)=M( 
L+l):: M(L+l)=H :: H=J(L):: 

J(L)=J(L+l):: J(L+1)=H 
2880 H$=D$(L):: D$(L)=D$(L+1 
):: d$(L+1)=h$ :: h$=be$(L): 

: be$(L)=be$(l+d:: be$(l+1) 
=h* :: RETURN 
2890 END 





Ab dem 6. Schuljahr geht 
es los. Die vielerseits un¬ 
geliebte Bruchrechnung 
wird in den Lehrplan mit 
aufgenommen. Den Eltern 
graust es schon bei dem 
Gedanken, die Hausauf¬ 
gaben der Pennäler kon¬ 
trollieren zu müssen und 
die Schüler selbst werden 
sich wünschen, daß dieser 
Unterrichtsstoff bald ab¬ 
gehandelt ist und wieder 
vom Lehrplan verschwin¬ 
det. 

Doch Bruchrechnen ist 
ein wichtiges Thema und 
jeder muß leider damit 
leben. 

Um den TI 99/4A-Besit- 
zern den Umgang mit der 
Bruchrechnung etwas zu 
erleichtern, hat der Autor 
dieses Programm geschrie¬ 
ben (sogar in normalem 
TI-Basic, damit auch wirk¬ 
lich jeder von den Bürden 


der Bruchrechnung ent¬ 
lastet wird). 

Nach dem Abtippen die¬ 
ses Listings wird sicherlich 
ein allgemeines Aufat¬ 
men durch die Menge ge¬ 
hen. Eltern können nun 
schneller und sicherer die 
Aufgaben ihrer Sprößlinge 
kontrollieren, auch wenn 
• für sie das Thema „Bruch¬ 
rechnen“ schon seit eini¬ 
gen Jahren erledigt ist und 
die ganzen Rechenregeln 
längst wieder vergessen 
sind. 

Für die Schüler selbst bie¬ 
tet dieses Programm sogar 
noch eine weitere Mög¬ 
lichkeit an. Sollten sie im 
Unterricht nicht ganz mit¬ 
gekommen sein, können . 
sie sich von ihrem TI 
Übungsaufgaben in zwei 
verschiedenen Schwierig¬ 
keitsgraden stellen lassen. 
Der TI 99 kann zwar im 


BRUCHRECHNEN 

FUER ERGEBNIS=LEERTflSTE 
DRUECKEN. 

1= RDDI EREN 
2 = SUBTRflHI EREN 
3=MULTIPLIZIEREN 
4 = DIVIDI EREN 

WELCHE FUNKTION? 


Das Menue 

Befehlsmodus selbst eine 
ganze Menge verschiede¬ 
ner Rechnungen ausfiih- 
ren, doch für die Bruch¬ 
rechnung ist der Com- 
mand-Mode nicht gerade 
geeignet, da er keine Er¬ 
gebnisse als Bruchzahlen 
wieder gibt. 

Im Gegensatz dazu gibt 
dieses Programm nicht 
nur die Ergebnisse als 
Bruchzahl aus, sondern 
liefert auch noch gleich 
die Zwischenergebnisse 
mit. Mancher Lehrer soll 


ja bekanntlich gerade auf 
die Zwischenergebnisse 
großen Wert legen, um zu 
sehen, ob die Gedanken¬ 
gänge richtig waren oder 
auch nur um zu kontrollie¬ 
ren, ob das Programm 
nicht abgeschrieben wur¬ 
de. 

Nun zur Programm¬ 
steuerung:_ 

Nach dem Starten des 
Programmes erscheint auf 


Bitte lesen Sie weiter auf Seite 49 
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100 REM******************** 


110 REM* 
120 REM* 
130 REM* 
140 REM* 
150 REM* 


Bruchrechnen 
Copyright by 
B.Knedel 


*■ 

* 

* 

* 

* 


210 REM*Benoetigte Geraete* 
220 REM* TI99/4A Konsole * 
230 REM* * 

240 REM* * 

250 REM* Speicherbelegung * 
260 REM* 4837 Bytes * 
270 REM******************** 
280 REM 

290 CALL SCREEN(16) 

300 RANDOMIZE 

310 CALL CLEAR 

320 H$="ZWISCHENERGEBNIS:" 

330 CALL CHAR(128,"00000055A 

A55 " ) 

340 PRINT BRUCHRECHN 

EN": : : : : : : "Schwierigke 
itsgrad l ODER 2?": : : : : 


350 PRINT "GEMISCHTE ZAHLEN 
VOR DER": :"EINGABE BITTE IN 
BRUECHE UM-": :"WANDELN.": 


360 CALL KEY(0,P,S) 

370 IF S=0 THEN 360 
380 IF (P<49) + (P>50) =-1 THEN 
360 

390 IF P=49 THEN 420 
400 T=19 
410 GOTO 430 
420 T=9 

430 CALL CLEAR 

440 PRINT H .BRUCHRECHN 

EN": : : : : m fuer ergebnis=l 
eertaste": :"DRUECKEN. M : : : 

a 

450 PRINT "SOLL DER COMPUTER 
AUFGABEN": :"STELLEN? M : : I 
: : : :" J oder n ? h 
460 CALL KEY(0,J,S) 

470 IF (J<>74)+(J<>78)+(J<>1 
06)+<J<>110)=-4 THEN 460 
480 IF (J=74)+(J=106)THEN 57 
0 

490 CALL CLEAR 

500 PRINT ".BRUCHRECH 

nen": : : :"fuer ergebnis=le 

ERTASTE": :"DRUECKEN.": : : 

510 PRINT "1=ADDIEREN": :"2= 
SUBTRAHIEREN": :"3=MULTIPLIZ 
IEREN": :"4=DIVIDIEREN": : : 

520 PRINT "WELCHE FUNKTION?" 
530 CALL KEY(0, R,S) 

540 IF S=0 THEN 530' 


550 IF (R<49) + (R>52)< >0 THEN 
530 

560 GOTO 670 

570 CALL SOUND(500,440,1) 

580 Z=INT(RND*T)+1 

590 N=INT(RND*T)+1 

600 Z1=INT(RND*T)+1 

610 N1=INT(RND*T)+1 

620 IF Z/N<=Z1/N1 THEN 580 

630 IF <N=1)+(N1=1)<>0 THEN 

580 

640 IF (Z=N) + (Z1=N1)< >0 THEN 
580 


650 

R=INT(RND*4)+1 


660 

GOTO 690 


670 

CALL CLEAR 


680 

R=R-48 


690 

IF R=1 THEN 740 


700 

IF R=2 THEN 760 


710 

IF R=3 THEN 780 


720 

C=58 


730 

GOTO 790 


740 

C=43 


750 

GOTO 790 


760 

C=45 


770 

GOTO 790 


780 

C=42 


790 

IF <J=74)+(J=106)THEN 88 

0 



800 

CALL HCHAR < 22, 4 , C 

,4) 

810 

INPUT "ZAEHLER 1 

? ":z 

820 

PRINT 


830 

INPUT "NENNER..1 

? ":n 

840 

print : : : 


850 

INPUT "ZAEHLER 2 

? " :zi 

860 

PRINT 


870 

INPUT "NENNER.-. 2 

? ":ni 

880 

GOSUB 2030 


890 

GOSUB 2090 


900 

GOSUB 2200 


910 

GOSUB 2250 


920 

IF (R=2)+(SGN(Z/N 

I-Zl/Nl) 

= -i ) 

=-2 THEN 940 


930 

GOTO 960 


940 

CALL SOUND<1000,- 

6, 1) 

950 

GOTO 430 


960 

Z=VAL(A$) 


970 

N=VAL <B$) 


980 

Z1=VAL(A1$) 


990 

N1=VAL(B1$) 



1000 X=N 
1010 Y=N1 

1020 IF X=Y THEN 1080 

1030 IF X<Y THEN 1060 

1040 Y=Y+N1 

1050 GOTO 1020 

1060 X=X+N 

1070 GOTO 1020 

1080 KGV=X 

1090 ON R GOTO 1600,1690,1780 
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1100 CALL KEY(0,P, S) 

1110 CALL SOUND(-30,440,10) 

1120 IF S=0 THEN 1100 
1130 GOSUB 2490 
1140 IF Z=GGT THEN 1420 
1150 IF Z<GGT THEN 1160 ELSE 
1190 

1160 A*=STRS(Z) 

1170 B*=STR*(GGT) 

1180 GOTO 1300 
1190 X=INT(Z/GGT) 

1200 Z=Z-GGT*X 
1210 A*=STR$(X) 

1220 IF (Z=0) + (N=l)< >0 THEN 
1260 

1230 B$=STR$(Z) 

1240 C$=STR$(GGT) 

1250 GOTO 1450 

1260 FOR 1=1 TO LEN(A$) 

1270 CALL HCHAR(13,L+Ll+I+6, 
ASC(SEG$<A$,I,1))) 

1280 NEXT I 

1290 GOTO 2370 

1300 FOR 1=1 TO LEN(A$) 

1310 CALL HCHAR(12,6+L+I+L1, 
ASC <SEG*(A$,1,1))) 

1320 NEXT I 

1330 FOR 1=1 TO LEN(B$) 

1340 CALL HCHAR(14,6+L+L1+I, 
ASC(SEG*(B$,I,1))) 

1350 NEXT I 

1360 IF LEN<A$)>LEN(BS)THEN 
1390 

1370 L2=LEN(B$) 

1380 GOTO 1400 
1390 L2=LEN(A$) 

1400 CALL HCHAR(13,7+L+L1,12 
8,L2) 

1410 GOTO 2370 
1420 CALL HCHAR(13,6+L1+L2,1 
28) 

1430 CALL HCHAR(13,7+L+L1,49 
) 

1440 GOTO 2370 

1450 FOR 1=1 TO LEN(A*) 

1460 CALL HCHAR(13,6+L+L1+I, 
ASC(SEG*(A*,I,1))) 

1470 NEXT I 

1480 FOR 1=1 TO LEN(B$) 

1490 CALL HCHAR(12,6+L+L1+LE 
N(A*)+I,ASC(SEG*(B*,I,1))) 
1500 NEXT I 

1510 FOR 1=1 TO LEN(C*) 

1520 CALL HCHAR(14,6+L+L1+LE 
N(A*)+I,ASC<SEG$(CS,I,1))) 
1530 NEXT I 

1540 IF LEN(C$)>LEN(BS)THEN 
1570 

1550 L2=LEN(B$) 

1560 GOTO 1580 


1570 L2=LEN(C$) 

1580 CALL HCHAR(13,7+L+LEN(A 
*)+L1,128,L2) 

1590 GOTO 2370 
1600 QQ=Z1 
1610 Q=Z 
1620 Z=KGWN*Z 
1630 Z1=KGWN1*Z1 
1640 Z=Z+Z1 
1650 Z5=Q*N1+N*QQ 
1660 N5=N*N1 
1670 GOSUB 1900 
1680 GOTO 1100 
1690 PP=Z 
1700 PP1=Z1 
1710 Z=KGWN*Z 
1720 Z1=KGWN1*Z1 
1730 Z=Z-Z1 
1740 N5=N*N1 

1750 Z5=N5/N*PP-N5/N1*PP1 

1760 GOSUB 1900 

1770 GOTO 1100 

1780 Z=Z*Z1 

1790 X=N*N1 

1800 Z5=Z 

1810 N5=X 

1820 GOSUB 1900 

1830 GOTO 1100 

1840 Z=Z*N1 

1850 X=Z1*N 

1860 Z5=Z 

1870 N5=X 

1880 GOSUB 1900 

1890 GOTO 1100 

1900 A=Z 

1910 B=X 

1920 IF A=B THEN 1980 

1930 IF A>B THEN 1960 

1940 B=B-A 

1950 GOTO 1920 

1960 A=A-B 

1970 GOTO 1920 

1980 7.-7.1 A 

1990 Z6=Z 

2000 GGT=X/A 

2010 N6=GGT 

2020 RETURN 

2030 A$=STR$(Z) 

2040 CALL CLEAR 

2050 FOR 1=1 TO LEN(A$) 

2060 CALL HCHAR(12,4 + 1,ASC <S 
EG*(A*,1,1))) 

2070 NEXT I 
2080 RETURN 
2090 B*=STR$(N) 

2100 FOR 1=1 TO LEN(BS) 

2110 CALL HCHAR <14,4 + 1,ASC(S 
EG*(B$,1,1))) 

2120 NEXT I 

2130 IF LEN<A$)>LEN<BS)THEN 


2160 

2140 L=LEN(B$) 

2150 GOTO 2170 
2160 L=LEN(A*) 

2170 CALL HCHAR(13,5,128,L) 
2180 CALL HCHAR(13,5+L,C) 
2190 RETURN 
2200 A1$=STR$ < Z1) 

2210 FOR 1=1 TO LEN(Al$) 

2220 CALL HCHAR(12,5+L+I,ASC 
<SEG$(A1*,I,1))) 

2230 NEXT I 
2240 RETURN 
2250 B1$=STR$(N1) 

2260 FOR 1=1 TO LEN(Bl$) 

2270 CALL HCHAR(14,5+L+I,ASC 
<SEG$(B1$,1,1))) 

2280 NEXT I 

2290 IF LEN(A1$)>LEN(B1$)THE 
N 2320 

2300 Li=LEN(Bl$) 

2310 GOTO 2330 
2320 L1=LEN(A1$) 

2330 CALL HCHAR(13,6+L,128,L 
1) 

2340 CALL HCHAR <13,6+L+Li,61 
) 

2350 IF R=4 THEN 1840 
2360 RETURN 

2370 PRINT "NOCH EINMAL J OD 
ER N?" 

2380 CALL KEY(0,K,S) 

2390 IF (K=78)+(K=110)=-1 TH 
EN 2460 

2400 IF (K<>74) + (K< >106) 0-1 
THEN 2380 
2410 X=0 
2420 Y=0 
2430 GGT=0 
2440 KGV=0 
2450 GOTO 430 

2460 CALL CLEAR 

2470 PRINT "AUF WIEDERSEHEN. 

: : : :-schoenen gruss vo 

n h : : : : : : - adam 

riese!": ::::::: 

2480 END 

2490 FOR 1=1 TO LEN(H$) 

2500 CALL HCHAR<2,4+1,ASC(SE 
G*(H*,I,1))) 

2510 NEXT I 
2520 Z5$=STR$(Z5) 

2530 N5$=STR$(N5) 

2540 Z6$=STR$(Z6) 

2550 N6*=STR*(N6) 

2560 IF LEN(Z5$)>LEN(N5$)THE 
N 2590 

2570 LA=LEN(N5$) 

2580 GOTO 2600 
2590 LA=LEN(Z5$) 


2600 FOR 1 = 1 TO LEN (Z5$) 

2610 CALL HCHAR(4,4+1,ASC(SE 
G$(Z5$,1,1))) 

2620 NEXT I 

2630 CALL HCHAR(5,5,128,LA) 

2640 FOR 1=1 TO LEN(N5$) 

2650 CALL HCHAR(6,4+1,ASC(SE 
G$(N5*,I,1))) 

2660 NEXT I 

2670 IF LEN(Z6$)>LEN(N6$)THE 
N 2700 

2680 LA1=LEN(N6$) 

2690 GOTO 2710 
2700 LA1=LEN(Z6$) 

2710 FOR 1=1 TO LEN(Z6$) 

2720 CALL HCHAR(4,5+LA+I,ASC 
(SEG$(Z6 $,1,1))) 

2730 NEXT I 

2740 CALL HCHAR(5,6 + LA,128,L 
Al ) 

2750 FOR 1=1 TO LEN(N6$) 

2760 CALL HCHAR(6,5+LA+I,ASC 
(SEG$(N6 $,I,1))) 

2770 NEXT I 
2780 RETURN 
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dem Bildschirm ein Menü. 
Zum einen kann man jetzt 
eine der vier Grundrechen¬ 
arten anwählen, mit der 
die Rechenaufgabe gelöst 
werden soll und zum ande¬ 
ren möchte der Computer 
gerne wissen, ob er mit 
Hilfe seines Zufallgenera¬ 
tors Aufgaben stellen 
oder vorgegebene Auf¬ 
gaben lösen soll. 

In beiden Fällen tut er die 
Beendigung seiner Aufga¬ 
be mit einem Piepston 
kund, ohne das Zwischen¬ 
ergebnis und die Endsum¬ 
me auf dem Bildschirm 
auszugeben. 

Dies soll Euch die Zeit ver¬ 
schaffen, die Ihr benötigt, 
um die Aufgabe selbst zu 
lösen. Habt Ihr nun auch 
ein Ergebnis zu Papier ge¬ 
bracht (oder auch nicht), 
genügt es vollkommen, 
wenn Ihr jetzt einmal die 
Leertaste betätigt. Der TI 
sieht sich nun veranlaßt, 
seine Zwischenergebnisse 
und die Endsumme auszu¬ 
geben. 

Der Übungsteil dieses Pro¬ 
grammes beinhaltet zwei • 
verschiedene Schwierig¬ 
keitsstufen. Die erste für 


blutige Laien auf dem Ge¬ 
biet der Brechrechnung 
und die zweite für Schüler 
(oder Eltern) die schon 
etwas tiefer in die Materie 
eingestiegen sind. 


ZWISCHENERGEBNIS: 
105 21 

m.vxn wc 

700 40 

1 5 7 21 
25 8 40 


Zwei Einschränkungen 
müssen bei diesem Pro¬ 
gramm leider beachtet 
werden: 

1. ) Es dürfen keine ge¬ 
mischten Brüche eingege¬ 
ben werden. Gemischte 
Brüche müssen vor der 
Eingabe erst in echte 
Brüche umgewandelt 
werden. Dies dürfte aber 
wohl für jeden eine Klei¬ 
nigkeit sein. 

2. ) Kann das Programm 
keine Kettenbrüche lö¬ 
sen. Wenn man aber in 
Zweierschritten vorgeht, 
kommt man auf alle Fälle 
trotzdem schneller zu ei¬ 
nem richtigen Ergebnis, 
als dies mit Füller und 
Papier zu erreichen wäre. 


» 
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Die Eingabe der Brüche 
erfolgt in vier Schritten 
im Dialog mit dem TI: 

1. ) Der Zähler des ersten 

Bruches. 

2. ) Der Nenner des 

ersten Bruches. 

3. ) Der Zähler des 

zweiten Bruches. 

4. ) Der Nenner des 

zweiten Bruches. 

Die Rechenart wird ja be¬ 
reits im Hauptmenü ausge¬ 
wählt und braucht nun 
nicht weiter beachtet wer¬ 
den. 

Mehr ist bei diesem Pro¬ 
gramm eigentlich nicht zu 
beachten. Die Bedienung 
ist kinderleicht und durch 
das Menü und den pro¬ 
grammierten Dialog kön¬ 
nen eigentlich keine Fehl¬ 
bedienungen und damit 
vielleicht falsche Ergeb¬ 
nisse auftreten. 

Auch Lehrern (es gibt ja 
einige, die einen TI besit¬ 
zen) könnte dieses Pro¬ 
gramm eine Hilfe sein, 
wenn sie zu Hause die 
Übungsaufgaben für den 
nächsten Tag zusammen¬ 
stellen und sich etwas Zeit 
einsparen wollen. Dadurch, 
daß das Programm auch 
die Zwischenergebnisse 
mit dem kleinsten gemein¬ 
samen Nenner liefert, ist 
auch die Lemkontrolle 
gewährleistet. 

Schüler, die mit der Bruch¬ 
rechnung auf Kriegsfuß 
stehen, sollten sich unbe¬ 
dingt mit dem Ubungsteü 
dieses Programmes befas¬ 
sen. Er macht mehr Spaß, 
als die sture Rechnerei mit 
Füller und Papier und lie¬ 
fert auch auf Anforderung 
gleich die richtigen Ergeb¬ 
nisse, damit sie sehen kön¬ 
nen, ob Sie alles gefressen 
haben. 

Wer die nächste Mathe- 
Arbeit nun dennoch ver¬ 
haut, ist selbst dran Schuld. 

Hartmut König 
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Assembler-Programme — in assemblierter Form 
auch Maschinenprogramme genannt — werden in der 
Regel von einer Diskette in den Computer 
geladen. Und wer keine Diskettenstation hat, guckt 
in die Röhre — meint man. Stimmt aber nicnt, 
denn der im Extended-Basic-Modul enthaltene 
Loader kann Maschinenprogramme auch von 
der Kassette laden! Einen Haken hat die Sache aber: 
Es gibt weder Angebote von Maschinenprogrammen 
auf Kassette noch kann das Editor/Assembler- 
Modul seinen Output auf Kassette schreiben. 
Also wurde von einer nutzlosen Fähigkeit des 
Extended-Basic-Moduls gesprochen? Nein! 


In diesem Artikel wird be¬ 
schrieben, wie man - mit 
Hilfe eines Freundes, der 
glücklicher Besitzer einer 
Diskettenstation ist — 
Kassetten mit Maschinen¬ 
programmen beschreiben 
kann, die dann das Ex¬ 
tended-Basic-Modul ak¬ 
zeptiert. 

Alle Bedingungen, die der 
XB-Loader an Disketten¬ 
programme stellt, müssen 
natürlich auch von den 
Kassettenprogrammen er¬ 
füllt werden: Der ‘tagged 
object code* darf nicht 
‘compressed 7 sein (eine 
besondere Option des 
E/A-Moduls, die Platz auf 
dem Datenträger spart) 
und er darf keine externen 
Referenzen (REFs) enthal¬ 
ten. Wenn aber ein ferti¬ 
ges Programm auf Disket¬ 
te für das Extended-Basic- 
Modul bestimmt ist, dann 
werden diese Forderun¬ 
gen sicherlich erfüllt sein. 


Es genügt nun aber nicht, 
für die Konversion ein¬ 
fach die Datensätze von 
der Diskette zu lesen und 
1:1 auf die Kassette zu 
übertragen. Dafür sind sie 
zu lang. Die Datensätze 
auf der Diskette haben 
ein festes Format von 80 
Bytes Länge, die auf der 
Kassette dürfen nur 64 
lang sein. Die Datensätze 
müssen also umgeordnet 
werden. Das Zerschneiden 
darf jeweils nur vor einer 
‘tag* genannten Marke er¬ 
folgen. Die Satzabschlüsse 
mit ‘checksum tag*, 
‘checksum* und ‘end 
sentinel* müssen entfernt 
und nach Umgruppierung 
der Datensätze wieder 
richtig angefügt werden. 
Für „Eingeweihte“, die 
das Konversionsprogramm 
ergründen möchten: Es 
wird dann das checksum 
tag 8 verwendet, das beim 
Laden die Kontrolle der 


checksum unterbindet. 

Man braucht also nicht 
eine neue Prüfsumme zu 
berechnen. Und der An¬ 
schein, den der Original- 
Assembler-Output er¬ 
weckt, trügt, der nämlich, 
daß jeder Datensatz mit 
einer Ladea'dresse begin¬ 
nen muß. Das ist nicht 
nötig, und deshalb ist das 
Umgruppieren wieder ein 
Stück einfacher. Die be¬ 
sonderen Datensätze, die 
beispielsweise die Namen 
von Programm-Marken 
mit den zugehörigen 
Adressen (DEFs) übermit¬ 
teln oder die das Pro¬ 
grammende anzeigen, müs¬ 
sen trotz der Umgruppie¬ 
rung ihr spezielles Format 
beibehalten. 

Das abgedruckte Extended- 
Basic-Programm erledigt 
die ganze Konversion. 

Seine sehr einfache Hand¬ 
habung wird jetzt be¬ 
schrieben. Es fragt an¬ 
fangs nach dem File-Na¬ 
men des Diskettenpro¬ 
gramms, das auf Kassette 
übertragen werden soll, 
z.B. DSK1.SPIELX. 

Dann kommen die üblichen 
Anweisungen zur Bedie¬ 
nung des Kassettenrekor¬ 
ders, und es wird Satz 
für Satz auf die Kassette 
geschrieben. Bei der Kon¬ 
version auftretende Feh¬ 
ler werden am Monitor 
gemeldet. Das Programm 
endet — hoffentlich! — 
mit der Meldung ‘Konver¬ 
sion fertig’. 

Wer sich dafür interessiert, 
wie die umgruppierten 
Datensätze auf dem Band 
aussehen, kann anschlie¬ 
ßend mit RUN 600 einen 
Ausdruck (über PIO, nö¬ 
tigenfalls ändern!) erzeu¬ 
gen. 

Dann kann geladen wer¬ 
den: Nach CALL INIT 
und CALL LOAD(“CSl“) 
geht’s los mit CALL 
LINK(“START“), wobei 
angenommen ist, daß der 
Startname (‘Entry name*) 
START ist. 

Gutes Gelingen! w. Jüngst 
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100 !- 

110 ! KONVERSION VOM 
120 ! OBJECT-CODE FUER 
130 ! KASSETTENBENUTZER 

140 ! 

150 * VORHER: 

160 * E' A-OUTPUT OHNE REFs 
170 ' AUF DISKETTE IM 
180 ! FORMAT DIS/FIX 80, 

190 ! NON-COMPRESSED 

200 ! 

210 ! NACHHER: 

220 ! KONVERTIERTER OUTPUT 
230 ! AUF KASSETTE IM FORMAT 
240 1 DIS/FIX 64, GEEIGNET 
250 1 FUER DEM XB-LGADER MIT 
260 ! CALL LOAD("CS1") 

270 ' 

280 ! AUTOR: W.JUENGST 
320 F$="80000F" :: ER$="* FE 
HLER:" :: PRINT :: INPUT "DI 
SK-OBJ-FILE-NAME: ":FN$ 

330 OPEN 41:FN$,FIXED 30,IMP 
UT :: OPEN 42:"CS1",FIXED 64 
,OUTPUT 

340 INPUT 41:A$ :: GGSUB 510 
350 IF L<=64 THEN R=0 :I R$= 
11 “ :: PRINT 42: SEG$'.A$, 1 ,L-6 

)feF« :: GOTO 370 
360 R=5 :: R$=SEG$(A$,59,5): 

: PRINT #2:SEG*<A*,1,58)&F$ 
370 FOR Z=2 TG 10000 :: INPU 

t 4i:A$ :: as=asc(a$):: gosu 

B 510 

380 IF AS=65 OR AS=57 OR AS= 

66 OR AS=67 THEN 450 

390 IR R$<>" "■ THEN PRINT 42: 


400 IF AS=49 OR AS=50 THEN P 
RINT :"* AUTOSTART IN XB IGN 
ORIERT" :: GOTO 490 
410 IF AS=58 THEN PRINT 42:S 
EG$(A$,1,L):: PRINT I"* FERT 
IG KONV." :: GOTO 500 
420 IF AS=51 OR AS=52 OR AS= 
53 OR AS=54 THEN 430 ELSE PR 
int :er$ :: goto 500 

430 IF L< =64 THEN PRINT 42:S 
EG*<A$,1,L-6)&F$ :: GOTO 490 
440 PRINT 42:SEG$(A$,1,50)kF 
$ :: PRINT 42:SEG$(A$,51,10) 
kF* :: GOTO 490 
450 A$=R$&SEG$(A$,1,L-6):: L 
=L + R-6 :: R$="" :: R=0 
460 IF L< =58 THEN PRINT 42:A 
$LF$ :: GOTO 490 
470 PRINT 42: SEG$ (A$, 1,55 ) 2<F 
* :: R=L-55 :: R$=SEG$<A$,56 
,R) :: IF R< 51 THEN 490 

480 PRINT 42:R$kF$ :: R$=" " 

: : R=0 
490 NEXT Z 

500 CLOSE 41 :: CLOSE 42 :: 
STOP 

510 FOR L=69 TO 1 STEP -1 :: 

IF SEG$(A$,L, 1)0" " THEN R 
ETURN 

520 NEXT L :: RETURN 

600 OPEN 42:"CSl",FIXED 64,1 

NPUT :: OPEN 43:"PIO" 

610 FOR 1=1 TO 10000 :: INPU 
T 42:A$ :: PRINT 43: A* 

620 IF ASC(A$)=58 THEN CLOSE 
42 :: CLOSE 43 :: stop 




P£= 11 


630 NEXT 
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Machen Sie Druck 
beim Drucken 


Bekanntlich steuert man die Vielzahl des prinzipiell vorhandenen 
Druckkomforts bei einem Matrixdrucker mittels Stringzeichenfunktion 
(CHR$) in Verbindung mit einer PRINT-Anweisung an. 

Dabei unterliegen die Codes der Charaktere 1-29 einer Normung, 
sind also im Prinzip bei allen Druckern gleich. Bei hochwertigen Druckern 
reicht aber diese Anzahl von Einzel Steuerzeichen für die Realisierung 
der Vielzahl der unterschiedlichsten Druckleistungen nicht aus. 
Deshalb erfolgt ein Großteil der Ansteuerung des Druckers vom Computer 
aus, mittels sogenannter Escape-Sequenzen. 



e«.nT«OWCS 


Escape (symbolische Abkürzung 
ESC) bedeutet wörtlich übersetzt 
„entschlüpfen“, „entkommen“. Da 
es sich hierbei um einen Hilfscode 
handelt, dem mindestens ein weite¬ 
res Steuerzeichen folgt, spricht man 
auch von Einleitungssteuerzeichen, 
oder wenn der gesamte symbolische 
Code gemeint ist, von Fluchtse¬ 
quenzen (Escape-Sequenzen oder 
auch ESC-Sequenzen). Bei der Be¬ 
nutzung von Fluchtsequenzen ist 


folgendes unbedingt zu beachten: 

□ In den Bedienungsanleitungen 
für Matrixdrucker erfolgt meist 
die Formulierung der Sequen¬ 
zen symbolisch. In dieser Weise 
lassen sie sich aber in keinem 
Fall in den Computer eingeben. 

□ Die ESC-Sequenzen unterliegen 
keiner Normung. Deshalb müs¬ 
sen gleichartig geschriebene sym¬ 
bolische Codes bei unterschied¬ 
lichen Druckern keinesfalls die 


gleiche Wirkung des Drucks her- 
vorrufen. 

□ Die computergerechte Verschlüs¬ 
selung des Einleitungssteuerzei¬ 
chen ESC geschieht in jedem 
Fall mittels Stringzeichenfunk¬ 
tion und zwar genormt mit dem 
Code 27. Also anstatt ESC gilt 
automatisch immer CHR$(27). 

□ Die Verschlüsselung der dem Ein¬ 
leitungssteuerzeichen folgenden 
(symbolischen) Code - ein Buch¬ 
stabe, eine Ziffer oder ein Son¬ 
derzeichen — kann auf unter¬ 
schiedliche Weise realisiert 
werden. 


VERSCHLÜSSELUNG EINER 
ESC-SEQUENZ IN VERBINDUNG 
MIT DEM TI 99/4A 


Um keine Irrtümer aufkommen zu 
lassen, sei daran erinnert, daß bei 
Übermittlung einer Fluchtsequenz 
an den Drucker ein Druckkanal of¬ 
fen sein muß (Open-Anweisung). 

Wir gehen im folgenden davon aus, 
daß die logische Filenummer 1 ange¬ 
sprochen wurde. Die Bedienungsan¬ 
leitung für den MX-80 (Typ III) - 
gilt in gleicher Weise auch für den 
RX-80 und den FX-80 - gibt bei¬ 
spielsweise für die Druckart Fett 
folgenden symbolischen Code an: 
“ESC E“-Code oder in der Anlei¬ 
tung für den RX-80 bzw. FX-80 ein¬ 
fach den Namen ESC E: 

Für den TI 99/4A gibt es vier Varian¬ 
ten, die hier als Beispiel ausgewählte 
Escape-Sequenzen in Form einer 
PRINT-Anweisung an den Drucker 
zu übermitteln: 


x x iti 


CHR$(27);CHR$(69) 

CHR$(27)&CHR$(69) 


oder 

O PRINT #1 
oder 

O PRINT #1 
oder 

O PRINT #1 :CHR$(27)&“E“ 

Die gewählte Form im zweiten und 
dritten Beispiel ist manchmal prak¬ 
tikabler, weil der Code innerhalb der 
zweiten Stringzeichenfunktion auch 
als numerischer Ausdruck gestattet 
ist. Also nachfolgende Anweisung 
würde ebenfalls den Drucker auf 
Fettdruck umschalten. 

CODE = 69 

PRINT #1 :CHR$(27);CHR$ 
(CODE) 

An Stelle des Semikolon kann natür¬ 
lich auch ein Stringverknüpfungszei¬ 
chen stehen (&). 

Wird die ESC-Sequenz als Stringva¬ 
riable vereinbart und auf diese Wei¬ 
se innerhalb des Programms benutzt, 
so ist aus Gründen der Syntax nur 
beispielsweise folgendes möglich: 
CODE j=CHR$(27)&“E“ oder 
CODE$=CHB$ (27)&CHR$(69) 
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Folgt dem zweiten symbolischen 
Code noch ein weiteres Steuerzei¬ 
chen, so handelt es sich in jedem 
Fall um einen Parameter, mit dessen 
Hüfe eine Spezifizierung der betrof¬ 
fenen ESC-Sequenz erfolgt. Dieser 
Parameter wird symbolisch meist 
mit n angegeben, n ist hierbei eine 
numerische Variable, die dezimal 
eingebunden in eine Stringzeichen¬ 
funktion endgültig zu formulieren 
ist. Die symbolische Darstellung 
“ESC A+(n)D“-Code muß dem¬ 
nach computergerecht wie folgt um¬ 


gesetzt werden, wenn n den Wert 
26 erhalten soll: 

PRINT #1 :CHR$(27);“A“; 
CHR$(26) oder als indizierte String- 
variable 

CODE$(19)=CHR$(27)&“A“ 

&CHR$(26) 

Bei den drei genannten Druckern 
bewirkt die genannte PRINT-An- 
weisung, daß der Zeilenabstand auf 
26/72 Inch festgesetzt wird. Der 
Parameter n darf in unserem Bei¬ 
spiel dabei einen Wert von 1 bis 85 
erhalten, n entspricht hier exakt 


formuliert der Anzahl der Nadeln 
zwischen den Zeilen. Natürlich gel¬ 
ten für die Formulierung der PRINT- 
Anweisung ebenfalls die vorher ge¬ 
nannten Varianten. Somit ist auch 
folgendes möglich: 

N=13 

PRINT #1 :CHR$(27);CHR$(65); 
CHR$(N) 

Der Zeilenabstand wird auf 13/72 
Inch festgelegt. 

Die Verschlüsselung der ESC-Se¬ 
quenz, die eine vorher eingestellte 
Druckwirkung wieder aufheben soll— 


100 REM DEMONSTRATION MIT TI 
-99/AA 

105 REM CTRL + ZEICHEN ERZEU 
GT ESC-SEQUENZ 

110 REM GETESTET AUF EPSON M 
X-S0 (TYP III) 

115 REM - 


120 REM UMSCHLUESSELUNGSLIST 
E = 1. SCHRITT 

125 REM - 


130 DIM CODES(18) 

135 CODES(1)=CHRS(9) 

140 REM .HT -HORIZONTALEN 
TABULATOR ANLAUFEN CTRL A 

145 CODES(2)=CHRS(27)ß<"0" 

150 REM ESC 0 -ZEILENABSTAND 
1/8 INCH =DICHT CTRL B 

155 CODES(3)=CHR$(27) ß<" 1" 

160 REM ESC 1 -ZEILENABSTAND 
7/72 INCH=SEHR DICHT CTRL C 
165 CODES (4 ) =CHRS (27) 6c u 2" 

170 REM ESC 2 -ZEILENABSTAND 
1/6 INCH =NORMAL CTRL D 

175 CODES<5>=CHRS(27) ß^E" 

180 REM ESC E -FETTDRUCK EIN 
SCHALTEN CTRL E 

105 CODES (6) =CHR$ (27) ß<"F" 

190 REM ESC F -FETTDRUCK AUS 
SCHALTEN CTRL F 

195 CODES (7) -CHRS (27) ßc"G" 

200 REM ESC G -DOPPELDRUCK E 
INSCHALTEN CTRL G 

205 CODES (8) =CHRS (27) ß<"H" 

210 REM ESC H -DOPPELDRUCK A 
USSCHALTEN CTRL H 

215 CODES (9) =CHRS (27) ßc" T" 

220 REM ESC T -VERKLEINERTEN 
DRUCK AUSSCHALTEN CTRL I 
225 CODES (10) =CHRS (27) ß<" @" 
230 REM ESC @ -ZEICHENSATZ I 
TALIEN AUS/NORMIERUNG CTRL J 
235 CODES (11) s CHRS (27) ßt" D" ß<C 
HRS(5) 


240 REM ESC D(5) -HT/TABULAT 
OR AUF 5.POS. SETZEN CTRL K 
245 CODES < 12) =CHRS (27) ßc"R"ß<C 
HRS(6) 

250 REM ESC R(6) -ZEICHENSAT 
Z ITALIEN WAEHLEN CTRL L 
255 CODES (13) =CHRS (27) 8c" S *' ßcC 
HRS(0) 

260 REM ESC S(0) -VERKLEINER 
TEN DRUCK HOCHSTELLEN CTRL M 
265 CODES (14) =CHRS (27) ßc" S " ßcC 
HRS(1) 

270 REM ESC S(l) -VERKLEINER 
TEN DRUCK TIEFSTELLEN CTRL N 
275 CODES (15) =CHRS (27 ) ßc" W " ß<C 
HRS(1) 

280 REM ESC W <1) -GEDEHNTE S 
CHRIFT EINSCHALTEN CTRL 0 
285 CODES (16) =CHRS (27) ßc 1 'W"8<C 
HRS(0) 

290 REM ESC W(0) -GEDEHNTE S 
CHRIFT AUSSCHALTEN CTRL P 

295 CODES (17) =CHRS (27) ß<" - "&C 
HRS(1) 

300 REM ESC -<1) -UUTERSTREI 
CHUNG EINSCHALTEN CTRL Q 
305 CODES (18) =CHRS (27) ßc M - M ßcC 
HRS(0) 

310 REM ESC -(0) -UNTERSTREI 
CHUNG AUSSCHALTEN CTRL R 
315 REM - 


320 REM SCHREIBEN EINER TEXT 

SEITE *= 2. SCHRITT 

325 REM - 


330 DIM AS(30) 

335 FOR Z=1 TO 30 
340 CALL CLEAR 

345 PRINT " MIT *!* TEXTEING 
ABE BEENDEN" 

350 PRINT 

355 PRINT "LETZTE ZEILE <"JZ 
-li H .) LAUTET:" 

360 PRINT 

365 PRINT " "f AS(Z-1) 


1 » 
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370 PRINT 
373 PRINT 

330 PRINT "MAXIMAL ZWEI ZEIL 
EN EINGEBEN" 

385 PRINT 
390 INPUT A*(Z) 

395 IF A$(Z)="!" THEN 405 
400 NEXT Z 
405 CALL CLEAR 

410 PRINT " TEXT GESCHR 

IEBEN" 

415 PRINT 
420 I=Z 

425 REM UEBERNAHME DER GESCH 

RIEBENEN ZEILENANZAHL 

430 REM - 


435 REM CTRL ZEICHEN GEGEN S 
TEUERCODE = 3. SCHRITT 
440 REM - 


445 PRINT ,l AUSTAUSCH ERFOL 
GT JETZT ! " 

450 PRINT 

455 PRINT " BITTE WART 

EN" 

460 FOR Z=1 TO 1-1 

465 REM ZEILE FUER ZEILE 

470 L=LEN(A$(Z>) 

475 IF L=0 THEN 645 
480 KO=0 

485 REM FUER UMWANDLUNG VON 
CTRL 

490 FOR J=1 TO L 

495 REM ---------- 


500 REM ISOLIERUNG DES GESUC 
HTEN CTRL-ZEICHEN 
505 IS$=SEG*(A*(Z),J+KO,1) 
510 REM ’1’ IN SEG*, WEIL CT 
RL IMMER NUR EIN ZEICHEN 
515 CODE=ASC(IS*) 

520 IF CODE<=128 THEN 640 
525 IF CODE<147 THEN 545 
530 REM EIN NICHT VEREINBAR 
TES CTRL-ZEICHEN GEWAEHLT 
535 IS*=" “ 

540 GOTO 640 

545 REM CODE ERGIBT EIN DEFI 

NIERTES CTRL-ZEICHEN 

550 REM ---------- 


555 L$=SEG$(A$(Z),1,J-l+KO) 
560 R$=SEG$(A$(Z>,J+l+KO,L-J 
) 

565 REM -*-*-*-*-*-*-*-*-*-* 
-*-*-*-*-*-*-*-*-*-*-*-*-*-* 
570 REM WIRD IS$ EIN, ZWEI 0 
DER DREI ZEICHEN LANG * 


575 IF C0DE=129 THEN 615 
580 REM ES LIEGT ESC-SEQUENZ 
VOR. ZWEI OD.DREI ZEICHEN'* 
585 KO=KO+1 

590 REM ESC-SEQUENZ MINDESTE 
N ZWEI ZEICHEN LANG * 

595 IF CODE<139 THEN 615 
600 REM ESC-SEQUENZ DREI ZEI 
CHEN LANG * 

605 KO=KO+1 

610 REM WERT VON KO WIRD DUR 
CH ESC LAUFEND ERHOEHT * 

615 NR=CODE-128 
620 REM -*-*-*-*-*-*-*-*-*-* 
-*-*-*-*-*-*-*-*-*-*-*-*-*-* 
625 IS$=CODE$(NR) 

630 A$(Z)=L$&IS$kR$ 

635 REM ZUSAMMENBAU DER ZEIC 
HENKETTE WIEDER ERFOLGT 
640 NEXT J 
645 NEXT Z 

650 REM - 


655 REM DRUCK DES UMGESCHLUE 
SSELTEN TEXTES = SCHRITT 4 
660 REM - 


665 CALL CLEAR 

670 PRINT " TEXT ZUR AUSGA 
BE BEREIT" 

675 PRINT 

680 PRINT " DRUCKER VORB 

EREITEN" . 

685 PRINT 

690 PRINT " DANN 

n 

695 PRINT. 

700 PRINT " TASTE ’D’ DR 

UECKEN" 

705 CALL KEY(0,T,ST) 

710 IF T>68 THEN 705 
715 IF T<68 THEN 705 
720 I=Z-1 
725 CALL CLEAR 

SBrEBW m es wird JET2T 

735 OPEN Vi :"RS232.BA=4800.D 
A=8",OUTPUT 

740 REM OPEN-ANWEISUNG DEM D 
RÜCKER ANPASSEN 
745 FOR Z=1 TO I 
750 PRINT #l:A$(Z) 

755 NEXT Z 
760 CLOSE #1 
765 END 
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oft auch als Killercode bezeichnet — 
muß in gleicher Weise an den Druk- 
ker mittels PRINT-Anweisung ge¬ 
sendet werden. Hersteller von Ma¬ 
trixdruckern wählen hierfür drei 
verschiedene Varianten: 

O Die Aufhebung erfolgt durch 
erneutes Senden des gleichen 
ESC-Sequenz. 

O Die Aufhebung geschieht durch 
die gleiche Fluchtsequenz. Ledig¬ 
lich der Parameter n ist jetzt 
nicht 1 (entspricht einschalten) 
sondern 0 (entspricht ausschal¬ 
ten). Typisches Beispiel ist der 
Unterstreichungsmodus. 
Unterstreichung ein: 

PRINT #1 :CHR$(27)&CHR$(45) 
&CHR$(1) 

Unterstreichung aus: 

PRINT #1 :CHR$(27)&CHR$(45) 
&CHR$(0) 

O Eine Aufhebung wird durch eine 
andersartige Sequenz bewirkt, z.B. 
Doppeldruck ein (ESC G), Dop¬ 
peldruck aus (ESC H). 


DIREKTES EINBINDEN EINER 
FLUCHTSEQUENZ WÄHREND 
DES SCHREIBENS VON TEXT 


Der Informationswert von Bedie¬ 
nungsanleitungen für Matrix¬ 
drucker hat sich in letzter Zeit sicht¬ 
bar verbessert. Bei den genannten 
drei Druckern ist der Aufbau der An¬ 
leitung in methodischer und didakti¬ 
scher Hinsicht sogar ganz hervorra¬ 
gend. Bei Kenntnis des vorher ge¬ 
nannten Sachverhalts werden des¬ 
halb kaum Schwierigkeiten beim di¬ 
rekten Einbinden einer Fluchtse¬ 
quenz innerhalb eines TI 99/4A- 
Programms auftreten. Ein solches 
Einbinden ist für bestimmte An¬ 
steuerungsmöglichkeiten nicht nur 
empfehlenswert sondern manchmal 
unumgänglich (siehe hierzu auch 
Tölke, Textverarbeitung mit Pro¬ 
grammen für TI 99/4A und VC 20. 
Vieweg Verlag 1984, S. 37 Bei¬ 
spiel 13). 

Eine ganze Reihe von Ansteuerungs¬ 
möglichkeiten möchte man aber 
gerne direkt vom eingegebenen Text 
aus bewiiken. Hierzu gehört bei¬ 
spielsweise das Unterstreichen eines 
Worts und vieles mehr. Leider geht 
meines Wissens bisher keine Anlei¬ 
tung auf diese Problematik ein. 

Bei der Lösung dieses interessanten 
Problems muß die Schwierigkeit um¬ 
gangen werden, daß es auf direktem 
Weg nicht möglich ist, eine ESC-Se¬ 
quenz in den Text beim Schreiben 
einzubinden. Aus Platzgründen wol¬ 
len wir uns auf eine einzige recht in¬ 
teressante Lösungsvariante beschrän¬ 
ken. Die nachfolgenden Ausführun¬ 
gen sollen dabei durchaus beispiel¬ 


haften Charakter besitzen. Daran 
erkennbar, daß nur eine Untermen¬ 
ge der vorhandenen Ansteuerungs¬ 
möglichkeiten der Drucker MX-80, 
RX-80 und FX-80 ausgeschöpft wer¬ 
den. Ganz offensichtlich steigt von 
Modell zu Modell die Vielfalt des 
Druckkomforts und das bei konstan¬ 
ten Preisen, bezogen immer auf das 
aktuelle neue Modell. 


Modell 

MX-80 

RX-80 

FX-80 

Ansteuerungsmöglich¬ 
keiten gesamt 

40 

52 

71 

davon ESC-Sequenzen 

27 

40 

56 


Das noch schrittweise zu erläutern¬ 
de Programmbeispiel läuft direkt mit 
den hier genannten Druckern, wo¬ 
bei es nur mit dem MX-80 praktisch 
getestet wurde. Eine Umsetzung auf 
andere Druckertypen oder eine an¬ 
dersartige Auswahl der ESC-Sequen- 
zen wird nicht schwer fallen, wenn 
man das angewandte Prinzip beach¬ 
tet. 

Für die Realisierung unseres Vorha¬ 
bens sind „Steuercodetasten“ not¬ 
wendig, die folgende Bedinungen er¬ 
füllen müssen. 

□ Möglichkeit des Verzichts auf 
darstellbare Zeichen auf dem 
Bildschirm bei Betätigen der be¬ 
treffenden Taste (Tastenkombina¬ 
tion), wenn Text geschrieben wird, 
die sich aber trotzdem einbinden 
lassen. 


□ Mittels ASCII-Wertfunktion (ASC) 
muß die gedrückte Taste (Tasten¬ 
kombination) einen Code liefern. 

□ Der zugeordnete Code muß einen 
bestimmten numerischen Bereich 
umfassen und möglichst ohne Un¬ 
terbrechung fortlaufend sein. 

□ Nach Drücken dieser Taste (Ta¬ 
stenkombination) muß dieses in¬ 
nerhalb der Zeichenkette einen 
Platz einnehmen, auch wenn dieser 
auf dem Bildschirm nur als schein¬ 
bares Leerzeichen indirekt sicht¬ 
bar wird. Dies erleichtert eine spä¬ 
ter eventuell notwendige Korrek¬ 
tur ganz erheblich. 

Diese Bedingung erfüllt die Tasten¬ 
kombination CTRL in Verbindung 
mit einem Zeichen (im weiteren nur 
noch CTRL-Zeichen genannt) in ge¬ 
radezu idealer Weise. Auch wenn 
dafür laut Bedienungsanweisung für 
viele Zeichen schon eine Funktion 
vergeben ist. Bevor diese definierte 
Wirkung aber eintreten kann, wird 
im Programm der eigentliche Code 
(z.B. CTRL A besitzt den Code 129) 
um 128 vermindert und liefert jetzt 
den numerischen Wert 1. Bezogen 
allein auf alle Buchstaben des Alpha¬ 
bets entstehen so die Werte 1 bis 
26 (CTRL Z). Die jeweilig so erzeug¬ 
te Zahl wird als Wert der Varianten 
‘NR‘ zugewiesen und erreicht so 
den String mit der eigentlichen Steu¬ 
erwirkung (CODES(NR)) über den 
Index jederzeit. ' wird fortgesetzt 


Assembler 
leicht gemacht 


Beim letzten Mal mußte der kleine 
Tip für die Experten entfallen. 

Das waren dann die berühmten 10 
Zeilen zuviel beim Umbruch, d.h. 

10 Zeilen wären über die Seite hin¬ 
ausgegangen und „Gummi-Seiten“ 

S 'bt es leider noch nicht. 

eshalb diesen Tip nun hier am 
Anfang: Bei der Dateibehandlung 
unterscheidet der TI 99/4A ja 5 
verschiedene Formate: Program, 
DIS/VAR, DIS/FIX, INT/VAR und 
INT/FIX. Gemäß dem Handbuch 
zum Editor-Assembler kann über 
die Abfrage des Status einer Datei 
auch das Format in Erfahrung ge¬ 
bracht werden. Dazu wird einfach 
ganz normal die Datei über 
DSRLNK angesprochen. Der Op- 
Code im PAB ist dafür dann >09. 
Hier ist in den meisten Disk-Con- 


trolem ein Softwarefehler enthalten. 
DIS/FIX-Dateien werden bei der 
Statusabfrage als DIS/VAR zurück- 
gegeben. 

Nun wollen wir aber weiter in unse¬ 
rem Assemblerkurs fortfahren. Vie¬ 
le Anfragen erhielt ich nach der Be¬ 
legung des VDP-Ram’s, d.h. was 
steht dort wo. Dies soll dann auch 
heute unser Thema sein. Vorab muß 
aber dazu gesagt werden, daß sich 
die Belegung je nach Modul unter¬ 
scheidet. Wir wollen uns heute auf 
TI-Basic, Extended Basic und das 
Editor/Assembler-Modul unter der 
Funktion LOAD AND RUN be¬ 
schränken, dabei ist das Mini-Memo¬ 
ry unter LOAD AND RUN gleich 
wie das Assembler-Modul. 

Rein für die Bildschirmdarstellung 
braucht der Video-Display Prozes- SW 
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*******W**M*W************ 

* VDP-REGISTER UND TABELLEN LADEN 

* - ' ••: ‘ — r ' f •* • • ;• ••• 


SETREG 

LI 

1, REG 

* 

REGISTER WERTE 

REG1 

MOV 

*l + ,0, . . 

* 

WERT AUS DER TABELLE 


JEQ 

REGEND 




BLWP 

•§VWTR 

* 

REGISTER LADEN 


JMP 

REG1 



REGEND 

MOVB 

§REG+1,§>83D4 * KOPIE VDP-REG 1 FUER INTERRUPT 


LI 

0,>0300 

* 

>D0 AUF BEGINN DER SPRITE 


LI 

1,>D000 

* 

ATTRIBUTE TABLE, KEINE SPRITES 


BLWP 

§VSBW 

* 

WERDEN ABGEBILDET 


LI 

0,>0380 

* 

COLOR TABLE 


LI 

1,>F000 

* 

VORDERGRUND WEIS AUF TRANSPARENT 

REG2 

BLWP 

§VSBW 




INC 

0 




CI 

1,>03A0 




JNE 

REG2 




LI 

1,>0900 

* 

BEGINN AB CHARAKTER >20 = SPACE 


MOV 

1,§ >834A 




BLWP 

§GPLLNK 

* 

GR. BUCHSTABEN LADEN 


DATA 

>0018 




BLWP 

§GPLLNK 

* 

KL. BUCHSTABEN LADEN 


DATA 

>004A 




LI 

0,>08F0 

* 

PATTERN DESCRIPTOR TABLE 


LI 

1,CURSOR 

* 

CURSOR CHAR 


LI 

2,>0010 

* 

16 BYTES 


BLWP 

RT 

§VMBW 



CURSOR 

DATA 

>3C42,>99A1, 

>A199,>423C * COPYRIGHT ZEICHEN 


DATA 

>3C3C,>2424, 

>2424,>3C3C * CURSOR 

* DATEN FUER DIE VDP-REGISTER 


REG DATA >01E0 * REG. l: 16KBYTE, GRAPHICS MODE 

DATA >0200 * REG. 2: BASIS SCREEN IMAGE TABLE 

* * WERT MAL >400 (HEX!) 

DATA >030E * REG. 3: BASIS COLOR TABLE 

* * WERT MAL >40 (HEX!) >40x>0E=>380 

DATA >0401 * REG. 4: BASIS PATTERN DESCRIPTOR TABLE 

* * WERT MAL >800 (HEX) >800x>0i=>800 

DATA >0506 * REG. 5: BASIS SPRITE ATTRIBUTE LIST 

* „ ... * WERT MAL >80 (>80x>06=>300) 

DATA;>0600 * REG. 6: SPRITE DESCRIPTOR TABLE 

* * WERT MAL >800 

DATA >07F4 * REG. 7: FARBE FUER TEXTMODE GRAU 

* * UND HINTERGRUND DUNKELBLAU 

DATA >0000 * KENNWERT ENDE DER TABELLE 


sor einige Tafeln. Im einzelnen die linke obere Ecke des Bild¬ 
sind dies: schirms der Anfang der Tafel, der 

1. Screen Image Table, auch als Buchstabe rechts daneben das näch 
Bildschirmtabelle zu bezeichnen. In ste Byte usw. Das 33. Byte ist also 
diesem Bereich stehen die abzubil- das erste Zeichen in der zweiten 
denden Zeichen in ASCII. Dabei ist Zeile. Insgesamt benötigt diese 


Pattem Descriptor Table 768 Bytes 
(24 Zeilen a 32 Spalten). 

- 2. Die Color Table,also die Farbta- 
belle. Diese bestimmt die Farben 
der Zeichen jedes Charaktersatzes 
(jeweils 8 Zeichen, wie in CALL 
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COLOR im Basic, nur stimmen die 
Nummern der Zeichensätze nicht 
überein, da der Video-Display-Pro¬ 
zessor von 0 für die ASCIi-Charac- 
ter 0 - 7 rechnet). Für jeden Cha¬ 
raktersatz brauchen wir hier ein 
Byte, insgesamt also 32 Bytes 
(256 geteüt durch 8). In jedem Byte 
bestimmen die ersten vier Bits (je¬ 
weils vier Bits werden auch als 
Nybble bezeichnet, hier ist also das 
höchstwertige Nybble gemeint), die 
Vordergrundfarbe und das niedrig- 
wertige Nybble die Hintergrund fär¬ 
be. Auch hier gelten wieder die Wer¬ 
te aus dem Basic für die Farben, 
nur müssen wir 1 davon abziehen, 
also ergibt sich 0 für Transparent 
und > F bzw. 15 für Weiß. 

3. Die Pattem Descriptor Table, die 
Tafel zur Bestimmung der Zeichen. 
Diese wird aus dem Basic mit CALL 
CHAR geladen und ist eigentlich 
für jedes Zeichen genauso aufgebaut 
wie der löstellige String, den wir in 
Basic eingeben. Dieser String kann 
ja auch als 8Bytes Hexadezimal ge¬ 
sehen werden. Diese Tabelle umfaßt 
also 256 mal 8 Bytes, macht 2048 
Bytes. Um Platz zu sparen, werden 
aber im Basic nicht alle 256 Zeichen 
die der Video-Prozessor darstellen 
kann ausgenutzt, so daß die Tabelle 
dann kleiner gehalten ist. 

4. Die Sprite Attribute Tabelle, also 
die Sprite Werte Tabelle. Hier be¬ 
finden sich jeweüs 4 Bytes für jeden 
Sprite. Das erste bezeichnet die 
Lage in vertikaler Richtung (>FF ist 
ganz oben, dann folgt >00 bis >BE 
nach unten) und das zweite Byte be¬ 
stimmt die Lage in horizontaler 
Richtung (>00 ist ganz links, >FF 
rechts). Das nächste Byte legt den 
Charakter-Code fest und das letzte 
Byte bestimmt die Farbe des Sprite 
im niedrigwertigen Nybble. Vom 
höherwertigen Nybble wird nur das 
letzte Bit verwendet. Ist es nicht ge¬ 
setzt, ist die obere linke Ecke des 
Sprites mit den Angaben für die Po¬ 
sition bestimmt und der Sprite wan¬ 
dert auf der rechten Seite des Bild¬ 
schirmes sauber heraus. Ist dieses 
Bit gesetzt, dann ist die rechte obe¬ 
re Ecke bestimmt, d.h. der Sprite 
wird um 32 Pixel nach links ver¬ 
schoben und wandert auf der linken 
Seite richtig heraus. Der Video-Pro¬ 
zessor kann 32 Sprites verwalten, 
also ist diese Tabelle insgesamt 128 
Bytes lang, aber auch hier wird im 
Extended Basic etwas Platz gespart 
und nur 28 Sprites werden verwen¬ 
det. 

5. Die Sprite Motion Table, Sprite 
Bewegungs-Tabelle. Diese Tabelle 
wird eigentlich nicht vom Video- 
Prozessor benötigt, sondern wird 
ausschließlich von der Interrupt- 


Routine verwaltet. Je Sprite sind 
auch hier wieder 4 Bytes vorhanden. 
Die ersten beiden geben den Ge¬ 
schwindigkeitswert in vertikaler 
und horizontaler Richtung an. Ne¬ 
gative Zahlen geben dabei eine um¬ 
gekehrte Bewegung. Die beiden wei¬ 
teren Bytes werden nur von der In¬ 
terrupt-Routine zur zwischenzeit¬ 
lichen Speicherung von Werten be¬ 
nutzt. 

6. Die Sprite Descriptor Table. Die¬ 
se Tabelle ist genauso wie die Pat¬ 
tem Descriptor Table aufgebaut, 
nur gilt sie eben für die Sprites. Häu¬ 
fig wird sie auch mit der Pattern 
DescripXor Table zusammengelegt, 
so auch in Extended Basic. So brau¬ 
chen wir darauf hier nicht noch wei¬ 
ter einzugehen. 

Was liegt nun von diesen Tabellen 
wo im VDP-RAM. Zuerst unter 
TI-Basic: 

VDP-Adresse Tabellenbezeichnung 

HEX DEZ 
>0000 0 

Screen Image Table 

>02FF 767 
>0300 768 

Color Table 

>031F 799 
>0320 800 
>03EF 1007 

Pattern Descriptor 
Table mit Offset 
96 (HEX> 60) Start 
daher eigentlich 
ab> 0000 

>03F0 1008 Start mit Charakter 
für ASCII 30 

>07FF 2047 Ende variable je 
nach definierten 
Zeichen 

Der Bereich von> 0320 bis> 03BC 
wird vom TI-Basic zum Umwandeln 
von Eingabezeilen in das Basic-For- 
mat (Crunchen) verwendet. 

Nun zum Extended Basic: 
VDP-Adresse Tabellen-Bezeichnung 

HEX DEZ 
>0000 0 

Screen Image Table 

>02FF 767 
>0300 768 

Sprite Attribut 
Table 

>036F 879 
>0370 880 
>03EF 1007 

Pattem Descriptor 
Table mit Offset 
96 (HEX> 60) Start 
daher eigentlich 
ab> 0000 

>03F0 1008 Start mit Charakter 
für ASCII 30 

>077F 1919 


>0780 1920 

Sprite Motion Table 

>07FF 2047 
>0800 2048 

Color Table 

>081F 2079 

Der Bereich von >0370 bis >03EF 
und> 08C0 und >0967 wird vom 
Extended Basic zur Zwischenspei¬ 
cherung von Werten und zum Um¬ 
wandeln von Eingabezeilen benutzt. 
Das Editor-Assembler-Modul nimmt 
weniger Rücksicht, braucht es ja 
auch gemäß seiner Bestimmung 
nicht. Es ergibt sich folgende Auf¬ 
teilung: 

VDP-Adre sse Tabellen-Bezeichnung 

HEX DEZ 
>0000 0 

Screen Image Table 

>02FF 767 
>0300 768 

Sprite Attribut 
Table 

>037F 895 
>0380 896 

Color Table 
>039F 927 

>03A0 928 
>03FF 1023 
>0400 1024 

Sprite Descriptor 
Table nur Zeichen 
ab> 80 (128 dez.) 
bis>EF (dez 239) 
benutzbar. 

>077F 1919 
>0780 1920 

Sprite Motion 
Table 

>07FF 2047 
>0800 2048 

Pattem Descriptor 
Table ohne Offset 
für 256 Charakter 

>0FFF4095 
>1000 4096 

Im Basic befinden sich nun ober¬ 
halb dieser Tabellen im VDP-RAM 
das Programm, die Werte aller Va¬ 
riablen und noch einige „Kleinigkei¬ 
ten“. Beim Editor-Assembler ist der 
Platz frei. Bei einem angeschlosse¬ 
nen Disk-Laufwerk ist ganz am obe¬ 
ren Ende des VDP-RAM’s noch ein 
Speicher reserviert, in dem nichts 
verändert werden sollte. Zu diesem 
Speicherbereich werden wir, wie 
auch zum Aufbau eines Basicpro- 
grammes, in einem anderen Beitrag 
kommen. Heute soll am Schluß ein 
kurzes Beispielprogramm stehen, 
wie alle notwendigen Tafeln des 
VDP-RAM’s und die Register des 
Video-Prozessors geladen werden 
können. Die Kommentare geben 
auch Aufschluß über die Bedeutung 
der VDP-Register. Heiner Martin 
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■taste Töne? 
Und was 

für welche! 

>8400 oder dezimal -31744 ist die Adresse des 
in der TI 99-Konsole integrierten Soundchips. 
Immer wenn wir den Befehl CALL SOUND 
aufrufen, werden die einzelnen Parameter hinterein¬ 
ander auf den 8 Bit breiten Eingang des Chips 
gelegt — Grund genug, einmal genauer auf die 
Reihenfolge und Art der Sounddaten einzugehen. 

Um das nun folgende nachzuvollziehen, sind 
keine allzu großen Hardwarevoraussetzungen not¬ 
wendig: es genügt, im minimalen Falle, das 
Ex-Basicmodul und die Miniassembler-Erweiterung 
von Radix. Natürlich geht’s auch mit 32 k oder 
Minimem — halt irgendwas, was den Befehl 
CALL LOAD auszuführen vermag . . . 


Für den TI gibt es zwei 
verschiedene Möglichkei¬ 
ten, den Tongenerator — 
oder besser gesagt die Ge¬ 
neratoren — anzusteuern. 
Erster Weg führt über eine 
Parameterliste, die irgend¬ 
wo im (VDP)RAM steht 
und über GPL oder eine 
Assemblerroutine auf den 
Generator gejagt wird. 

Der zweite Weg ist die 
direkte Ansteuerung des 
Soundchips — die Werte 
werden also im Direkt¬ 
modus oder im Programm 
auf den Chip gegeben. 

Wir interessieren uns hier 
für die zweite Methode — 


immer in dem Bestreben, 
über ein paar „Pokes“ ei¬ 
ne Menge zu regeln . . . 


Die grundliegende Ein¬ 
schränkung bei direkter 
Ansteuerung des Chips ist, 
daß wir keine Tondauer — 
entspricht dem ersten 
Wert in Call Sound — ein¬ 
geben können. Die wird 
beim TI nämlich „über 
Software“ erzeugt und 
somit hat der Soundchip 
kein Register für die Zeit, 
die ein bestimmter Klang 
andauem soll. Dazu noch 
eine Anmerkung: im Call 
Sound Statement kann ein 
Ton laut TI-Handbuch 
zwischen 1ms und 4250 
ms dauern. Intern — auf 
GPL-Ebene — wird dieser 
Wert allerdings zunächst 
mit 6 multipliziert und 
dann durch 100 dividiert. 
Somit wird aber aus der 
ursprünglichen 2 Byte- 
Zahl eine 1 Byte-Integer¬ 
zahl. Wirkung: Egal ob 
wir die Zeitdauer mit 1ms 
oder mit 20ms angeben, 
es ist dasselbe! 

Noch eine Bemerkung zum 
Handbuch und Call Sound. 
Dort steht nämlich, daß 
die Werte für die drei Ton- 
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Generatoren Integer¬ 
zahlen sein müssen. 
Stimmt aber nicht, man 
kann nämlich genauso¬ 
gut Fließkommazahlen 
eingeben. — Nicht nur, 
daß man sich dadurch 
während des Programmab¬ 
laufes Speicherplatz und 
Zeit spart — weil man et¬ 
wa auf die INT-Funktion 
verzichten kann —: bei 
niedrigen Frequenzwerten 
„nimmt“ der Tonprozes¬ 
sor die Fließkommazahlen 
auch an. Gebt doch mal 
spaßeshalber nacheinan¬ 
der die Werte 110.1. 

110.9 auf den ersten Ton¬ 
generator. Wer ein gutes 


Ohr hat, vernimmt deut¬ 
lich Frequenz(=Tonhöhe>- 
unterschiederln der Pra¬ 
xis ist das nicht ganz un¬ 
wichtig: viele musikalisch 
untermalte Programme 
klingen deutlich „schräg“, 
weil die Frequenzwerte . 
als Integerzahlen eingege¬ 
ben werden. Besser ist die 
Anwendung des Algorith¬ 
mus aus dem englischspra¬ 
chigen Ex-Basic-Handbuch 


SPART JEDE MENGE 
SPEICHERPLATZ 


— Seite 171 - da hier die 
genauen Tonverhältnisse 
berechnet werden. Im üb¬ 
rigen spart die Verwen¬ 
dung dieses Algorithmus 
gegenüber endlosen Data- 
zeilen auch jede Menge 
Speicherplatz. Kommen 
wir aber, wie versprochen, 
zur direkten Ansteuerung 
der Generatoren. Wie 
schon oben angedeutet, 
gibt es hierbei den Para¬ 
meter „Dauer“ nicht 
mehr. Einmal program¬ 
miert und es tönt ewig. 

Das muß nicht unbedingt 
von Nachteil sein, da viele 
Spielprogramme erst 
durch andauernde Ge¬ 
räuschuntermalung rich¬ 
tig schön werden — wir er¬ 
sparen uns also das An¬ 
springen einer Soundrou- 
tme mitten in der Joystick¬ 
abfrage und das kann u.U. 
so manchem Basicspiel 
geschwindigkeitsmäßig auf 
die Beine helfen. Noch 
eine Eigenart: die pro¬ 
grammierte Frequenz — 
oder das programmierte 
Rauschen - bleiben so¬ 
lange erhalten, bis wir ei¬ 
nen neuen Wert auf das 
entsprechende Register ge¬ 
ben. Mehr dazu später. 
Damit es auch gleich mäch¬ 
tig lärmt, fangen wir di¬ 
rekt mit dem an, was die 
Angelsachsen gerechter¬ 
weise als „noise“ bezeich¬ 
nen: der Rauschgenerator. 
Eingeschaltet wird dieser 
mit CALL LOAD(-31744, 
A), wobei A zwischen 224 

— entspricht -1 bei Call 
Sound — und 231 — ent¬ 
spricht -8 — betragen darf. 
Nach dem ersten “Poke” 
werden wir noch nichts 
hören — die Soundgenera- 
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toren sind noch abgeschal¬ 
tet. Dieser Tatsache kön¬ 
nen wir mit CALL LOAD • 
(-31744,B) abhelfen; B ist 
ein Wert zwischen 240 
und 255 - mit 255 wird 
der Rauschgenerator abge¬ 
schaltet, 240.254 ent¬ 

spricht den einzelnen Laut¬ 
stärkestufen in abfallender 
Reihenfolge. CALL LOAD 
(-31744,227)::CALL 
LOAD (-31744,240) ent¬ 
spricht also einem CALL 
SOUND(X,-4,0) - wobei 
wir nicht vergessen dür¬ 
fen, daß der Parameter 
„Dauer“ beim poken ja 
entfällt. Die „interessan¬ 
testen“ Geräusche, die 
man mit dem TI produzie¬ 
ren kann, dürften wohl die 
sogenannten modulierten 
Rauschtöne sein. Wie es 
im TI-Basic-Handbuch 
steht, kann man die 
Rauschwerte -4 und -8 
mit der Frequenz des Ton¬ 
generators Nr. 3 modulie¬ 
ren. Hier wird deutlich, 
daß gerade auf die TI-Ge- 
neratoren der englische 
Begriff „noise“ besser als 
das deutsche Rauschen 
paßt: -4 ist nämlich eher 
eine Art „Knattern“ oder 
technisch gesehen ein tie¬ 
fer Rechteckton. Modu¬ 
liert man diesen Klang, 

SEHR TIEFE TÖNE 


so lassen sich sehr tiefe 
Töne erzeugen: im Basic 
über CALL SOUND 
(4250,110,30,110,30, 

110,30,-4,0) oder über 
LOAD mit den hinterein¬ 
ander eingegebenen Wer¬ 
ten 227,240,207,63,223. 
Jetzt wird allerdings deut¬ 
lich, daß CALL SOUND 
wesentlich einfacher ist. 
Man braucht beim Poken 
ja immerhin 5 Befehle. .. 
Was viele Ex-Basic-Benut- 
zer nicht wissen: man 
kann mit einem einzigen 
CALL LOAD mehrere 
Werte hintereinander auf 
dieselbe — oder auch auf 
verschiedene — Speicher¬ 
stellen geben! Die 
Syntax: 

CALL LOAD(ADRl, 
BYTE1,“ “,ADR2, 

BYTE2, “ “,.,ADRn, 

BYTEn) wobei maximal 
15 Speicherstellen ange- 
poked werden können. 


“Reset“ für das Modul 
“CONNECT FOUR” 

Hier ein kleiner Tip, der 
nicht im Begleitheft zu 
diesem Modul steht. Es 
passiert schon mal, daß 
man sich in den Menüs die¬ 
ses Spieles verwählt. Man 
muß dann dieses Spiel 
aber nicht zu Ende spie¬ 
len oder gar -Fctn Quit - 
drücken, sondern einfach 
- Shift 2 —. Dies bewirkt, 
daß man zum Demospiel 
zurückkehrt. Dies geht 
auch, wenn man schon im 
Spiel ist. 

Andreas Zeller 


Die beiden Gänsefüßchen 
kennzeichnen einen Leer¬ 
string - man kann an¬ 
statt “ ” auch A$ reinpak- 
ken, falls gewährleistet 
wird, daß diese Variable 
ein Leerstring bleibt. 

Diese wenig bekannte Tat¬ 
sache gilt übrigens für alle 
TI-Module, die Call Load 
kennen, beim Editor/ 
Assembler kann man auch 
mit CALL PEEK so ver¬ 
fahren — das geht beim 
Ex-Basic leider nicht. 
Schneller und speicher- 
platzsparender geht’s also 
mit CALL LOAD(-31744, 
227, “ ”,-31744,240,“ ”, 
-31744,207, “ ”,-31744, 
63,“ ”,-31744,223). Die 
letzten drei Bytes steuern 
den Tongenerator Nr. 3. 
Die Ansteuerung ist ein 
wenig kompliziert: 

1. Byte von 192 bis 207; 
enthält die 4 niederwer¬ 
tigsten Bits für Tonhöhe 

2. Byte von 0 bis 63: 
enthält die 6 höchstwer¬ 
tigsten Bits für Tonhöhe 

3. Byte von 208 bis 223; 
enthält Lautstärke - wie 
beim Rauschgenerator. 

Da die anderen beiden 
Tongeneratoren prinzipiell 
genauso angesteuert wer¬ 
den, hier die Werte: 
Tongenerator Nr. 2 

1. Byte von 160 bis 175 

2. Byte von 0 bis 63 

3. Byte von 176 bis 191 
Tongenerator Nr. 1 

1. Byte von 128 bis 143 

2. Byte von 0 bis 63 

e. Byte von 144 bis 159. 


Um das Ganze zu verdeut¬ 
lichen, müssen wir zu¬ 
nächst wissen, wie man 
die aus CALL SOUND 
bekannten Frequenzwer¬ 
te in die nötigen ein- 
Byte-Zahlen umrechnet... 
mit folgender Subrotuine 
nämlich: 

1000 REM***Frequenz 
zu Poke*** 

1010 F=INT(111860.8/ 
F+0.5) 

1020 MSB=INT(F/16) 
1030 LSB=F-(MSB*16) 
1040 RETURN 
Um jetzt beispielsweise 
dem Tongenerator Nr. 3 
verschiedene Töne mit 
aus CALL SOUND-Zeiten 
bekannten Frequenzwer¬ 
ten zu entlocken, müssen 
wir noch folgendes ein¬ 
tippen: 

100 ACCEPT AT(10,1) 
ERASE ALL:F 
110GOSUB 1000 
120 CALL LOAD(-31744, 
192+LSB,“ “,-31744, 
MSB “ ”,-31744,208) 
130 GOTO 100 
Wollen wir damit auch 
noch ein Rauschen modu¬ 
lieren, so genügt es, am 
Anfang des Programmes 
die Zeile 

90 CALL LOAD(-31744, 
227,“ ”,-31744,240) einzu¬ 
fügen. Wollen wir nur das 
modulierte Rauschen und 
nicht dagegen den Ton 
von Generator Nr. 3 hö¬ 
ren, so wird der letzte 
Wert in Zeile 120 zu 223. 
Wenn wir das gerade abge¬ 
tippte Programm in einem 
„Benchmark“ gegen eines 
mit CALL SOUND laufen 
lassen würden, so sähe es 
ganz schön schlecht für 
die Poke-Methode aus... 


VARIABLE EINSETZEN! 


Erste Programmiererpflicht 
in diesem Falle: Variablen 
anstatt Konstanten einset- 
zen. Also etwa Z$ anstatt 
“ ” und Z anstatt -31744. 
Bitte die Variablennamen 
möglichst kurz halten, das 
spart Speicherplatz und 
Zeit. Außerdem nach Mög¬ 
lichkeit keine Arrays ver¬ 
wenden, die laufen auf 
dem TI nämlich langsa¬ 
mer als einfache Variable 
— bei anderen Computern 
ist es in der Regel umge¬ 
kehrt! 


Jetzt liegt man über 
LOAD in einem leichten 
Vorteil gegenüber SOUND, 
kann allerdings den be¬ 
rechtigten Gedanken 
äußern, daß sich für so ei¬ 
nen geringen Geschwindig¬ 
keitsvorteil das ganze 
Nachdenken und Pro¬ 
grammieren wohl kaum 
gelohnt haben kann... 
über LOAD kann man 
aber so einige Sächelchen 
tätigen, die mit CALL 
SOUND nicht möglich 
sind, alsda wären: 

Aus- und Einschalten 
einzelner Generatoren 
Erzeugen einer Hüllkurve 
für jeden einzelnen 
Generator 

Unabhängige Verwen¬ 
dung der einzelnen 
Generatoren 


VARIABLE KURZ HALTEN 


Beispiel für eine Hüll¬ 
kurve: 


CALL LOAD(-31744,224, 
“ ”,-31744,240,“ ”, 

-31744,241,“ ”,.“ ”, 

-31744,255) 

Erklärung des Ganzen: 
alle ,-31744’s sind natür¬ 
lich die Adressen; der 
Wert ,224‘ initialisiert den 
Rauschgenerator - ent¬ 
spricht dem Basic-Wert 


,-l‘ — und alle Zahlen von 
,240‘ bis ,255 ‘ regeln die 
Lautstärke kontinuierlich 
herunter. In diesem Be¬ 
fehlsformat geht das we¬ 
sentlich gleichmäßiger vor 
sich, als wenn wir . es über 
sukzessive CALL SOUND 
oder -LOAD-Befehle ver¬ 
suchen. Wenn wir Variab¬ 
len anstatt der Festwerte 
einsetzen, so geht’s noch 
etwas schneller und man 
kriegt mehr Befehle in ei¬ 
ne Zeile — aber: Variab¬ 
lennamen bitte möglichst 
kurz halten, also A,B,C 
anstatt TONI, TON2, 
TON3 - you know what 
I mean. Natürlich kann 
man auch verschiedene 
Werte für verschiedene Ge¬ 
neratoren und ihre Laut¬ 
stärken eingeben — aber 
schafft Euch fürs Experi¬ 
mentieren besser einen 
Kopfhörer an, wenn Ihr 
nicht plötzlich den Tier¬ 
schutzbund vor der Türe 
haben wollt. 


/ ürgen Heinzerling 
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Suche: 32K-Ext. durchgef. 
Bus + Centron, CBM 64/ 

128 + Floppy, Spitzen-Biorh.- 
u. Astrolog. Prog. mit Hard¬ 
copy, Druckerbuffer f. GP 
550, etc. - BIETE: Tl-Centr. 
In+f., MBI: 150,-DM 
Meschkat, Sandweg 10, 3500 
Kassel, Tel. 0561/880100 
abends 

Verk.: TI 99/4A, Ex-Basic, 
Box, 32K-Ram, RS 232, 
Dsik.-Contr. 1 Laufwerk. 
Daten v. Textv. Literatur. 

VB 2800, 0231/87 15 81 

Verk. Seikosha GP50 m. 
Schnittstelle für 994A + Ka¬ 
bel 500 - Tel.: 02101/ 

46 49 68 bei Weiczorek 


***Endlich!!!*** 3 neue 
Spiele aus dem Hause 
SOLO-SOFT. Informationen 
in dieser Ausgabe (s.u.) 


TI-99 Tips und Tricks (Ein 
Data Becker Buch) für 30,— 
DM + Nachnahme zu verk. 
Joachim Bregulla, Ostseestr.5, 
435 Recklinghausen 
Tel. 02361/46219 


*32K-Erweiterung* für TI99, 
extern batteriegepuffert 
und durchgeführter Bus für 
245 DM dazu passende 
Assemblersoftware 
Tel. 0241/86447 


M.P.J.M.P.J.M.P.J.M.P.J. 
M.P.J. ist ein Strategiespeil 
Super 10 DM Ein mußt für 
Tl’ler. Info: 0221/697254 


Wer hilft 99/4A-Fan i.d. 
DDR? Gesucht: billiges 
32K RAM, Konsole z. aus¬ 
schlachten, Schaltplan u. 
Bauanltg. f. Hardware, def. 
Hardware jed. Art. 
Kontaktadresse: Otto 42 
OB 1, Feldmannstr. 54, 

Tel. (ab 19 h) 0208/860892 


Crazy Man, Flugsimulator, 
Frogger u.ä. super Listings 
zu Superpreisen!!! INFO 
gegen Rückporto bei: 

Selim özdogan, Wuppertaler 
Str. 26, 5000 Köln 80 


SUCHE MÖGLICHST 
BILLIG: Retum to the 
Pirates Isle, Speechsynth., 
TEII, Minimem + SW, 
Othello, orig. TI Joysticks 
Angebot bei: 

Selim özdogan, Wuppertaler 
Str. 26, 5000 Köln 80 


für E/A, MM u. XBasic + 

32 K. Info gg. Freiumschlag. 
Sofort lieferbar! 

Mathias Eichhorn, Ziegelhech 
1,6240 Königstein 4 


TI99/4A+Lehrg.+100Progr. 
299 DM/16 Module ab 
15 DM/TI-Cass. 15 DM 
4TI-Bücher ab 10DM/TI+ 
Ex. Progr. auch Tausch/ 

Info 1 DM bei Ralf Schmitz, 
Am Telegraf 14, 

5068 Odenthal 3 


Suche Sprachmodul 
Anruf bei G. Heinrichs 
Tel. 06591/7303 


DRUCKE Ihre Prg. für 
6.— DM je Listing. Ent¬ 
ferne Listschutz für 3.— 

DM pro Cassette! Info 
50 Pfg. anfordern oder Geld 
an: Matthias Orf, Birken¬ 
allee 34, D-3507 Baunatal 1, 
Tel. 0561/497990 


Drucke f. nur 3.— DM Listings 
TI-X-Bas. MM (Kassette). 
Suche günstig TI99/4A (auch 
defekt), Module jeder Art-X- 
Bas. Modul und E/A-Hand- 
buch, auch Kopie. Ulrich 
Hustedt, Schippenbeiler Weg 
5, 3070 Nienburg 2 


Suche: PeriBox, Disk-Contr., 

Laufwerk, 32 K 

Tel. 07231/74142 18-20 Uhr 


High-Res.-Grafik + 32 
Sprites für Ti99/4A + Mini¬ 
men. 16320 Pkte. 27 neue 
LINK-Befehle Kassette + 
Beschr. DM 30,— (Scheck/ 
bar) Dr. M. Kausch, Semmel- 
weisstr. 151, 5000 Köln 80 


TU 99/4A +EX-Basic + 
Joystmodüle-PACMAN — 
D. Kong + Rec. Kabel + 
Programme auf Kassette + 
Bücher 530 DM 
Tel. 08161/83587 


TI 99/4A + Ext. B. + Mini¬ 
men + Joysticks + 2 Rec. 
Kabel + Parsec + Munchman 
+ viel Software + viel Litera¬ 
tur VB DM 700,- 
Tel. 040/7547576 
Jürgen Gerkens 


Verk. TI99/4a + Ex Basic II + 
Cass'. Rec. + Modul gegen 
Höchstgebot. F. Simonis, 

Lev. 3, Tel. 02171/55305 


Verkaufe MiniMemory 
100,— DM + andere Module 
spottbillig! NN+5DM, x Liste 
anfordern!x Jürgen Kohn, 
Stettener Str. 41, 7450 
Hechingen, T. 07471/16820 


Su. ext. Bas. Modul möglich 
m. dt. Anleit. sow. Micro- 
surgeon. Bin an kontakten 
zwckes Soft und Harware 
inters. 

Robert Kirchmayer 
Söllerstr. 24, 8110 Murnau 


Tausche mein Tombstone 
City Modul gegen Invaders. 
Modul. Andreas Scholz, 
Londonerring 6, 6700 Lud¬ 
wigshafen 


TI 99/4A + Ext. B. +V. 
Chess. + Defnd. + Kabel + 6 
Cass. + Fast alle Bücher + 

30 TI zeitgen + Listings + 
Schaltpl., alles kaum be¬ 
nutzt 350 DM, Evtl. S/W 
Mon. + Cassr. + Joys. = 

450 DM. T. 040/7207870 


Ich verkaufe folgende Tl- 


Module 

Editor/Assembler 110,— 

Disk Manager 2 90,— 

Pic Man • 60,— 

Pers. Record Keeping 50,— 
Statistik 40,— 

Indoor Soccer 30,— 

TI Invaders 30,— 

Parsec 35,— 

M*A*S*H 40,- 

Burger Time 40,— 

Alien Addition 15,— 

A-maz-ing 25,— 

Othello 25,— 

Buck Rogers 40,— 

StarTrek 40,- 

Tel. 0212/43140 


Habt Ihr Lust, Eure Pro¬ 
grammsammlung zu ver¬ 
größern? Hättet ihr Lust 
zum Tauschen? Meldet Euch 
doch einfach bei mir! 

Tel. 07156/34941. Am Ende 
der anderen Leitung meldet 
sich dann Carlos Jarque. 

Ich freue mich schon auf 
Eure Anrufe! 


Suche das Modul Pole Posi¬ 
tion für den TI möglichst 
billig! Angebote an Carlos 
Jarque Ludwigsburgerstr. 14, 
7257 Ditzingen 1 oder 
Tel. 07156/34941 


Sonderangebot: TI99/4A 
+ ext. Diskcontroller, + 
Doppeldiskstation, + Druk- 
kerinterface nur DM 850,—. 
Nur bei Michael Franz Elek¬ 
tronik, Hebbelweg 17, 

2082 Tornesch 
Tel. 04122/54616 

Super Software? Mini Preis?? 
NA LOGO! Von Adventures 
bis zum Flugsimulator alles 
da!!! Wegen Systemaufgabe 
20 Pgms. nur 19 (!) Märker! 
50 Pgms. nur 45 (!) Kröten! 
usw. ... Wo denn nur, häh? 
Klar, bei dieser Nr.: 
02541/4153!!! 


Suche Disk-Manager 2 neu 
oder gebraucht. 

Tel. 05103/3020 
(ab 18 Uhr) 


Verkaufe orig. TI-Disklauf- 
werk für P-Box (neu) Preis: 
380,— DM (Tqjische gegen 
ext. Laufw. mit Contrr. mög¬ 
lich) Tel: 07144-5227 
. 18.00 


Hey Freaks! 32KRAM- 
Speicher exh.: BS: 195,— 

DM o. FG: 240 DM. Info 
von H. Ayasse, Schöckengasse 
5, 7253 Renningen 2 


Catch the Spiders DM 10,— 
in TI-Basic Schein + 
Leercas. + RP 
M. Möller, Eschenweg 3, 
2150 Buxtehude 


Mini-Assembler mit viel Soft¬ 
ware 3 Lit. zu verkaufen: 

VB 100 DM 
Axel Ludwegis 
Tel. 04171-71841 


Verkaufe: Mini-Assem. 
(100 DM) und MASH- 
Mod. (30 DM) 

A. Ludewigs, Pestalozzi- 
str. 7, 2090 Winsen/L. 


Verkaufe alles im TOP 
Zustand TI 99/4 nur 200,— 
Ex. Basic nur 150,— 
Mini-Mem. nur 200,— 
Schamodul nur 80,— 
Personal-Report nur 100,— 
div. Spielmodule je 50,— 
Fachbücher für MM und EX-B 
Alles zusammen nur 600,— 
Klaus-Dieter Ackermann 
Lüneburger Str. 11 
2125 Salzhausen 
Telefon am Tage 
040-321023166 
abends 04172-8621 


Suche defekten TI59 incl. 
Netzteil für Umbau. 

Paolo Pirillio Battonnstr. 30, 
6000 Frankfurt 1 


Verk. Ex-Basic orig. TI mit 
engl. Handbuch 140,— 
Suche Mini-Mem + 
Handbuch 
Tel. 0231/20837 


Verkaufe: Modul-Othello 
30,—, Minus-Mission 20,—, 
Alien-Addition 20,— gegen 
NN Tel.: 02245/3983 


Verk. zu TI-99/4A ERW. 
32 KR „Atronic“ extern, 
DM 150,— Ext. Basic (o. 
Handbuch) DM 130,- 
„A-Mazeing“ u. „Hustle“ 
zus. DM 60,— 

Tel. 040/6523901 


Achtung: Suche Terminal 
Emulator II. Angebote bitte 
an: M. Lipowski. In der 
Wanne 165 Castrop-Rauxel 4 
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Top TI 99/4A + P-Box + 
Mon. + 2 Laufw. Viele Modu- 
le u. Andw.Progra. / wie 
Multi PI. / TI write etc. 

H. Fluri, CH 065228995 


Suche Programme in X B. 
und Tib. Ich tausche und 
kaufe. Liste an J. Soukup 
am Brahmberg26, 

2358 Kattendorf 


99/4A+X-Basic (dtsch + 
engl. / + E/A(neu) torig 
Thermo-Printer + Basic — 
X-Basic-Kurs; Finanzberater; 
T199-Special 1000 DM VB 
Tel. 06131/22 25 79 


Verkaufe Ext. Handbuch 
(engl.) für DM 10. 

Tel. 0203/772112 
Jacob Joussen 
Fasanenstr. 4 
4100 Duisburg 1 


Suche Monitor und Akkustik- 
koppler. Bfete Schach-Modul 
und Geld 
Tel. 0211/377795 


TI99 :Software/Bücher/Modul 
40 Spiele auf Org. cass. 35,— 
6 Datenvprg. (Tab; 

15,—; Farbbildmusterprg. + 
Anl. 9,—; Modul „Wumpus- 
jagd“ + Anl. 25,—; Bücher 
üb. Soft-Hardware — 50 % 
Serviceunterlagen kompl. 

15- 

Chris Baumgärtner, Pf. 55, 
8679 Oberkotzau 


TI99/4A, X-Basic, Joys. 
Rek. + Kabel, Literatur + 
Adventur + Anwprogr. 
zus. nur 550,— DM, ab 
18 h. H.A. Martin, 
06898-43646 


Tl-User im Raum IA/RA 
suche Anwenderprogr. 
Literatur, Tips, alles über 
Denti. Für ext. Rec. u. 
Gpiuoa 

Tel. 07245/3155 


Wegen Systemwechsel alles 
von meinem 99 günstig, evtl. 
Liste oder Tel. 09151/95153- 


Nappsoft Tausch + Program¬ 
me in TI + Ex. Basic. Liste 
an Ralf Neumann, Kepler- 
str. 21, 6680 Neunkirchen 7 


Verkaufe 35 Spiele in Basic 
für 20' DM. 20 DM im Um¬ 
schlag an: Christian Brock, 
Massener-Kirchweg 39d 
4750 Unna 


Original TI/Extendet Basic 
mit Handbuch DM 190,— 

O. Snishcek, Tel. 069/618262 


TI99/4A mit Ext. B./Cass.- 
Recorder/Kabel/Joysticks 
und reichhaltiger Software 
sowie Literatur für 550,— 
DM zu verkaufen. 

Tel. 030/391 17 86 


Verkaufe Speech-Synthe¬ 
sizer (100 DM) + Alpiner 
(25 DM) und anderes 
Frank Henning, Waldstr. 12, 
6460 Gelnhausen 2 


Suche defekte TI Peripherie. 
Zahle ja nach Zustand u. 

Art. Dieter Heike. 

Tel. 02825/1394 
Nur nach 18 Uhr 


TI99/4A + X-Basic + neuw. 
Editor-Assembler-Paket + 
Joystick+ Recorder-*-Kabel+ 
Module+viel Software^ 
Literatur. VB 710,— 

Thomas Schulze (030) 
7726346 

Morgensternstr. 29, 1 Bin 45 


Verkaufe Computerkurs-Heft 
1-39 EM 80,-Tel. 0201/ 
511225 


Entferne Listschutz! Pro 
Prg. auf Cas. nur 3 DM + 
2 DM Porto. R. Bauer, 
Kelterstr. 16, 6962 Ad.- 
Sennfeld 


♦Suche dringend* Drucker 
+ Schnittstelle für TI/99 4A 
Th. Schmidt, S160DN, 
Eiswiese 7 


Suche Tauschpartner für TI 
und Ex-Basic Programme. 
Andreas Scholz, Londoner 
Ring 6, 6700 Ludwigshafen 


Ti-Module günstig: z.B. Miner 
2049’er DM 40.—, Parsec, 
Buck-Rogers je DM 25,— 
(weitere Module a.A.); 
Dynamics-Prg’s für nur 
DM 6,—; Suche Anfragen an 
A. Bosbach; Hand-Erhardstr. 
56; 8000 München 83 
(Rückporto!) 

Verkaufe Modul Ext. Basic 
und Mini Memory, neuwer¬ 
tig, komplett mit Hand¬ 
büchern zu je 200,— DM, 
VHB. 

Alexander Preuß, Sieveking- 
damm 17a, 2000 Hamburg 
26, T.040/2503478 


Suche für TI99/4A gute 
Softwareprogr. auf Kassette, 
auch in Extended Basic! 

Tel. 02331/301640 


Wir suchen im Raum Wien 
TI-Freunde an Erwin Kins- 
lechner, Eibesbrunnerg. 1/10, 
1120 Wien, Österreich 


Oldies B. Goodys DM 8,— 
Basic f. Anfänger DM 5.— 
Kasset. Rec. Kab. DM 15,— 
Div. Bücher, alles original, 
Tel: 06638/1503 


Verk. TI99/4A, Rec. Kabel 
Mod. Car Wars, Joy + Adap. 
Lit., Cass. Software (Basic 
Kurs) VB 280,- DM. 

Tel. 02948/1541 


Dringend zu verkaufen. 

2 unbenutzte Cass. Recorder¬ 
kabel für 15,—je Stück VB 
Tel. 06055/4684 


TI99/4A+EBAS 350 DM 
Module Stat, RepGen, Dat- 
Verw je 80,— Minus Mission, 
Alien Addition je 25,—, Rec- 
Kabel 15,—, Tl-Joyst. 35,— 
dt. Handbuch ExBas 30 DM, 
kompl. 645 DM 
K. Lindner, Weilerstr. 7, 
5303 Bomheim 4, 

Tel. 02227/7040 


Verk. TI99/4A+P-Box+ 
Diskette 32K Erw.+Rs232+ 
Drucker+Tisch+J ournal+ 
Multiplan+Datenverw.-*- 
Lager+Spiele VHB 2500 DM 
Grüner, Delpstr. 1,6940 
Weinheim, T. 06201/15413 


An alle TI99-Anwender 
Kassette mit 4 Info-Progr. 
vollgepackt mit tollen 
Basic u. Ediass-Progr. DM 5 
in Umschi, bei Kauf Ver¬ 
gütung an D. Karbach, 
Remscheider Str. 18, 

5650 Solingen 1 


Verkaufe Ti99/4A mit Zube¬ 
hör. Willi Nussbaum, Mozart- 
str. 5, 5013 Elsdorf, 

Tel. 02274/6722 


Verk.: Mini-Assembler 
(Radix) 100 DM; baue 
Speichererw. 180 DM 
Suche: Schaltpläne von 
Konsole und Peripherie; 
Listing von DSR; HW Untch 
Tel. 0841/77855 


Wer tauscht Scott-Adventure- 
Kassetten 

Habe: Count; Voodo und 

Adventure—Land 

Anfr. an: Vale 06421-44408 


Tausche Return to Pirates 
Isle f. Monnwepster Modul 
Tel. 81592, H. Arnfelt, 
Waldenburgerstr. 8, 

2850 B’haven 


Verk. Softw. Ex + Ti brand¬ 
neu Galactica. Inex. Kassette 
10 DM-Schein an H. Arnfelt 
Waldenburgerstr. 8, 

2850 Bremerhaven 


Verk. Orig. TI 32 Z Thermo¬ 
drucker inkl. 4 Rollen Papier 
anschifertig. VHB DM 450,— 
Tel. 07631/13732 


TI-99/4A Suche Disk mit 
32 KB Erweiterung 
Angebot an: 

Markus Theimer, Schweden- 
str. 2, 6203 Hochheim 


Verk. TI99/4A + Ext Box + 

32kRAM+V24+DSK+Contr 

+Schrank+XBasic+TI-Writer+ 

Text-Dateiverwalt+Datenver- 

walt-Analyse+Versa-Liste+ 

Number-Magic+Joysticks-i- 

Literatur gg. Gebot: 

A. Ruff, Haußerstr. 140, 

7400 Tübingen 


12345678901234567891234 
Verkaufe TI99/4A+P-Box+ 
Floppy+Controller+32K+ 
Speech-Synthy+X-Basic+ 

E/A (dt. Handb.)+versch. 
Progra.u. Literatur VB 2200 
DM, auch einzeln 
Martin Ottomeier, Werthfeld- 
str. 3, 42 Oberhausen 12, 

Tel. (0208) 893532 


Suche Kontakt zu Besitzern 
von APESOFT-GRAFIC- 
BASIC zwecks Informations¬ 
austausch! Verkaufe: TI- 
Basic/Ext. Basic für Anfänger 
für F5 DM! 

MATTHIAS ORF, BIRKEN¬ 
ALLEE 34, D-3507 BAUNA¬ 
TAL 1, TELEFON: 

(0561) 497990 


Verk. TI-Module: Parsec, 
Statistik, Datenverw. u. 
Analyse je 30,— DM 
Tel. (0821) 419121 


Verkaufe Basic-Kurs, Finanz¬ 
berater und Dynamics-Spiel 
Darts zu je 10,— 

Tel. 08851/5528 


Extended Basic + Ex.Hand- 
buch+50 Programme = 200,— 
DM, 2 Joysticks (original) 

= DM 49,- 
Tel. (09281) 95166 


Verk.: TI99/4AText. - Bas. 

+ Joyst., Buchungsjournal, 
Datenverw., Statistik, Schach¬ 
meister*- 6 Spielmodule + 

6 Cassetten + div. Lektüre 
Tel. 06893/1553 
J. Peter, Ponsheimer Str. 4, 
6601 Eschringen 


Suche: Modul TEXT & 
DATEIVERWALTUNG! 
Dringend! Angebote an 
Matthias Orf, Birkenallee 
34, D-3507 Baunatal 1 
-Tel. 0561/497990 
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TI-Club Münster e.V. bietet 
eigene TE-2 Übersetzung fü 
für nur 5 DM. Tel. 0251/ 
45845! Selbstkostenpreis! 


Verk. original TI-Laufwerk 
für 200 DM. Tel. 0251/ 
664684 


Verk. TI99/4A i. Orig. Verp, 
+ Ex.B. + RS232-2P+Joyst. 
+ Rec.+Druck. EP44 + Lit. 
1200 DM Raum Saar 
06834-42409 


Verkaufe Mult. PI. an 200 
Orthello Tomb. je ; 20 Musik 
Schach je 50 Editor 100 
Adv + 12 Games 150 Buchg. 
100 Stat + Text + Pers 
je 50 + div. 

Tel. 0212/56537 


Verkaufe Parsec Hunt The 
Wumpus TI Invaders Car 
Wars für je 30,— 

Tel. 0212/56537 


Tl-RECHNER-Menuegesteu- 
ertes Programm mit 14 Re¬ 
chenarten incl. Cass. + 

Porto nur DM 10,— 
öS 80,— in Umschlag an: 

D. Karbach, Remscheider 
Str. 18, 5650 Solingen 


TI99-Box, 32K, RS232, 2 
Diskst. Ass., Exb., Min. TeX. 
u. Datenver., Dat. u. Analyse, 
Diskmanager, Spr.-Syn. 

Tel. 030-7724897 
VB 2600,- DM 


Zu Verkaufen: T199/4A 
1 Modul Verwaltung 
Text + Datei Mini Mem. 
RS 232 Extended Rueegg 
Bern 

Tel. 031 559292/243232 


TI-Box mit Laufwerk + 
Controler + RS232 für 
1000 DM TI-99/4A + Ex- 
Basic + 5 Spielm. + 2 
Anwendungsm. + Rekorder 
650,— Super Sketch, 
Grafiktablett für 150 DM 
069/685142 


Suche Kontakt zu anderen 
E/A Usern und tausche E/A 
Prgs Ingo Kuning, 
Obemhainer Weg 1, 

6380 Bad Homburg, 

Tel. 06172/33879 


Verk. MBI Drucker-Inter¬ 
face (Centronic) für nur 
100 DM. Funktioniert tadel¬ 
los. Ingo Kuning, Obern- 
hainer Weg 1, 

6380 Bad Homburg • 

Tel.: 06172/33879 


Verkaufe billig TI/99 4A 
+ Extended Basic + Kassetten-. 
recorder + Spielmodule 
und Buchmaterial + Joy¬ 
sticks 

Jörg Schiatter, 

Tel. 02271/64514 


♦♦♦Wegen Systemwechsel*** 
TI99/4A+XBas+Peri-Box 
(CPS99/Atronic(l LW-DS/DD 
32K, Centr. 2xRS232) 
4Mon.Gar.+ 9 Bücher+Ti- 
Revue(compl)+Software+ 
Rec.mit Kabel+ 1 Joystick 
komplett DM 2.200,— VHB 
Tel. 04191/60215 ab 19.30 


TI EXTENDED BASIC (dt. 
Nachb.)+ 99Special II+TI 
Intern+CHIP Listings +Pro- 
grammcass.+Zeichenschriften. 
PREIS: 260 DM 
Holger Wenzel 

Tel. 06138/8395 


TI- und Ex-Basic-Programme 
Info g. Rückporto. B. Knedel, 
Tulpengasse 16, 3171 Wey¬ 
hausen. Tel. 05361/71187 


Suche gute E/A Pgms. im 
Tausch. Schickt Eure Listen 
zu: M. Zieske, Griesingerstr. 
152, 1000 Berlin 20 

Achtung: Suche gebrauchtes 
Grafik-Tablet evtl, mit Druk- 
kerprogramm. 

Tel. 08453/2585 ab 17 Uhr 


Ich verkaufe meinen TI99/4A 
(kompl.) für 2000,- DM 
inklusive Literatur 
T. 0201/402 395, nach 
17 Uhr 


Verkaufe TI99/4A + Zubehör 

f. 200 DM 

Tel. 05223-86622 


Verkaufe TI-99/4A+Recorder 
Kabel + 6 Bücher (Basichand- 
buch, Programmbuch, Tips 
und Tricks,...) + Software für 
250,- DM 

Telefon: 0761/39525 - 


Suche externe 32K-er W., 
evtl, mit Centronics-Schnitt- 
stelle 

Burkart, Tel. 06721/41859 


Suche Sprachsynth. (bis 100) 
Schachmod. 

Martin Grünwald 
Brückenstraße 4 
8034 Germering 


Org. ExBox m. Disclaufw. 
Controller u. Manager 2 
nur DM 749 Mod. Daten- 
verw. DM 40. J. Weiß, 

3380 Goslar, Franckestr. 14 


TI99/4A Grafiktablett 
Supersketch (DM 140,—) 
Tel. 02323-51417 


Suche Leute, die Lust haben 
mit mir ihre Programme zu 
tauschen. Würde mich riesig 
freuen, wenn sich möglichst 
viele melden. Liste an Carlos 
Jarques, Ludwigsburger- 
str. 14, 7257 Ditzingen 1 
Tel. 07156/3491. Ich be¬ 
sitze ca. 200—250 Spiele 
C. Jarque, Ludwigsburger- 
str. 14, 7257 Ditzingen 1 


UI Suche !!! 

xxxxxxxxxxxxxxxxxxxxxxx 
Suche Spielmodul im Tausch 
gegen TI-INVATERS 
0221/697254 


***QUBIE & THE CUBES** 
♦Superspiel f. TI 99/4A (Ex * 
♦basic, ähnl. Q-Bert, 3D- * 

♦Graphik, DM 25,-incl. * 
Prgmcassette, Porto u. * 
♦Versand Softwareinfo gg. * 
*DM 1,— * 

*P. Rieger, Talstraße 64 * 

*6750 Kaiserslautern ****** 


Verk. TI99/4A, org. ext.- 
Basic + detu. und engl. 
Handbuch und 2 Bücher, 
Schachmdl., Recorder, 
sämtl. Kabel und klein TV, 
zus. 550,— DM. Melden bei 
A. Ebel, Westhoffstr. 15, 
4630 Bochum oder Sa + So 
bei Diederich 02302/71299 


Verk. f. TI; Othello, Mind 
Chall., Tombst. City, Chrish. 
Trail f. je 25.— 

Tel. ab 18 h 
0821/3156399 Dieter 


Verk. Top TI 99/4A + 

Cass. Aec. + Rec. Kabel + 
GP100A + Kabel + P.-Box 
Kompl. mit int. Contr., 

Disk-, 32K, RS232+ Tl-Joyst. 
+ Ex-Basic + Ed. Assem. + 
Sprachsynt. + 8 Mod. + 10 
Disk. + viel Literatur 
Preis = VHS M. Sandmann, 
Im Braukes, 4630 Bochum 
Tel. 0234/382596 


TI99/4A=Club der Toten= 
VC-20 Aktivitäten: Club¬ 
magazin, Clubtreffen, Club¬ 
info, Softwarebibliothek, 
Einkaufsgemeinschaft. 
Jahresbeitrag 12 DM!! 

Mehr Aktivitäten auf 
Wunsch! 

Info gegen Rückporto. 
Adresse: CDT, Am Hang 5 
D-2054, Geesthacht = 

Club der Toten 


TI99/4A-Drucke Progr./ 
Dateien — egal wie lang 
(DM 10,-) 

Schreibe Listings auf Disk/ 
CAS. 

Biete Progr. versch. Bereiche 
aus Zeitschriften (z.T. Masch. 
Progr.) Verkaufe div. Module 
Adress: B. Dusny, 5205 
St. Augustin 1, Mülldorfer 
Str. 31, Tel. 02241/330700 


Verkaufe TI99/4A orig. verp. 
Cass. Rek. Kabel, Modul, 
Basic-Lehrg. Mod. Daten- 
verw. u. Analyse, NP 700 DM 
VK 500 DM 
W. Kraatz, Heldstr. 3, 

5489 Barweiler, Tel. Mo+Mi 
ab 20 h. Tel. 02691/7836 


Suche TI-Besitzer im Raum 
Leonberg und Umgebung. 
Ich weiß, daß es welche 
gibt!! Meldet Euch bitte 
bei Carlos Jarque, 
Ludwigsburgerstr. 14, 

7257 Ditzingen 1 
Tel. 07156/3494 


ACHTUNG ASSEMBLER¬ 
FREAKS! 

Suche Kontakt zwecks Aus¬ 
tausch von Informationen 
und Assemblersoftware. 
Weitere Interessen: 

DFÜ und Hardwareeigen¬ 
bau 

G. Morgenthaler, Angelstr. 
7143 Vaihingen/Enz 


Verk. TI 99/4A + X-Basic + 
div. Module + Software + 
Recorder + Kabel + Joy¬ 
sticks + Literatur 
VB 550 DM, Floppy + Con¬ 
troler 650 DM 
C. Bock, Oberstraße 106, 
3202 Bad Salzdetfurth 
Tel. 05063/551 


ALPHA - DATEK V 1.0 
99’er Spitzen Software 
Ihre profi Datenbank f. Ihren 
TI 99/4A. Ein Super Prog. 
mit 40 Zeichen pro Zeile, 
SUPER schnellen Sortieren 
und echte Kleinb. durch E/A 
Unterprof. und vieles mehr f. 
wenig Geld. Info by U. 
Brüsseler ab 20 Uhr, 

4050 Mönchengladbach 3, 
Wetschewell 125 d, 

T. 02166/53457 


Viersener Tl-User bitte bei 
mir melden. 

Peter Voigt 
• Breslauer Str. 20 
Viersen 11 
Tel. 56520 


ACHTUNG BASTLER!! 

TI 99/4A (leicht defekt) 

& PAL & Netz nur 100,— 
Recorderkabel 15 DM, Hand¬ 
bücher (EX+TI) 10,- & 

5.— DM, vollbespielte 
Programmkassetten nur 
8,- DM 

Dirk biehl, Hyazinthenweg 
15, 6680 Neunkirchen 7 
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Zu verkaufen: TI Expansion 
Box, V24-Karte, DSK-Drive 
(int.), DSK-Contr.-Karte 
und DSK Manag. Mod. 
gegen Gebot bei: Albrecht 
Eger, Aeulestr. 15, 

7400 Tübingen 


Die BESTEN TI99/4A Pro¬ 
gramme in Extened Basic: 
James Bond 007 — Im An¬ 
gesicht des Todes nur 
10,— DM + Leerkassette 
an Pat. Schmitz, Am Zehnt¬ 
hof — 4, 5480 Remagen — 
Unkelbach ... 

Weitere Top-Programme: 
Liste gegen frank. Rück¬ 
umschlag! ! 

TI 99/4A: EINMALIGES 
ANGEBOT!!! Tl+Zeit- 
schriften + 6 TI-Revues 
ORIGINAL VERPACKT!! 
nur 150,- DM. MM + Hand¬ 
buch + Buch „Einführung ins 
MM“ + 40 Prg. auf Kassette 
+ Anleitungen nur 200,— 
DM. 

Rekorder + Kabel a.A. 
Superbücher usw. a.A. 

Meldet Euch bei: M. 
Rattelmüller, August-Bebel- 
Str. 11,6454 Bruchköbel 1 
Tel. 06181/76654 


Verkaufe Minimemory mit 
dt. Handbuch (200), Orig.- 
Adventure-Cassetten: Pirate 
Adv., Savage Isl., Pyramids 
of Doom (zusammen 50, 
einzeln 20) 

Tel. (ab 19.00): 0221/481053 


Verkaufe Speichererweite¬ 
rung 32K intern für Peri- 

Box 200,- DM. 

Tel. 08192/231 


Verkaufe TI 99/4A Komplett¬ 
system mit allem, was des 
Computerianers Herz höher 
schlagen läßt — auch einzeln. 
Ruft an! Liste kommt kosten¬ 
los. Tel. 08192/231 


Ti99/4A, extended B., 3 
Bücher, 2 Modul: Video- 
Games I, Software, Kasset¬ 
tenrecorder + Kabel, 3 Joy¬ 
sticks. 

Norbert Wambach 
Kais.-Heinr.-Str. 52 
5401 Urmitz/RH 


Suche preisw. Erw. 32KB 
Disk usw. Außerdem bin ich 
an Kontakten zu Usern od. 
Clubs interessiert (Neuling) 
K-H Morawe, Karlstr. 4, 
4300 Essen 12 


Verkaufe meine 10 Origi¬ 
nal Apesoft-Disketten mit 
gesamter Software aus 
99-Special-Bücher 1 + 2 + 
Cerberus: 190 DM; 
TI-Module: Demon-Attack, 
Carwars, Attack, Othello je 
25 DM - alle 4 nur 90 DM. 
Tel. 08141-23140 - nur 
von 19-21 Uhr 


Verkaufe Drucker GP-100A 
+ MBI-Interface, kompl. für 
DM 280,- 
Tel. 06172/32849 


Suche: billige Spielmodule, 
anschlußfertige Floppy für 
TI u. Spiele. 

T. Pfister, Talstr. 49, 

8770 Lohr 


Suche und tausche Anwen¬ 
derprogramme in X-Basic 
oder Assembler (Mathe, 
Physik, Textverarbeitung...) 
Alex. Rupp, Kalmanstr. 45, 
6600 Saarbrücken 


Suche das Spiel Unternehmen 
Galactica für den TI99/4A 
Angeobte an: Stefan Jennen, 
02832 70242 


Verkaufe TI99/4A + Recor¬ 
der + Recorderkabel + 
viele Programme + viele 
Computerhefte 250 DM 
Tel. 069/614907 


Verkaufe komp. Anlage 
Neupreis 3000,— für 1500,— 
(Box; Ex-B; Grafiktablett...) 
T. Nebgen, 069/685142 


Popeye auf Cassette! (in ex- 
tended-Basic!) 10 DM- 
Schein an S. Altstadt, Hoch- 
str. 23, 6913 Mühlhausen 2 


TI-99/4A; P-Box, 32K, 

Disk, P-Code; RS-232; 
Ex-Bas.; Tl-Writer; Ass. usw. 
nur: 2500,— ■ 

Berdon, Heusenstamm, 

Tel. 06104/62185 

Suche: Erw.-Box + 32 K + 
Disk-Laufwerk + Controller 
für TI99/4A-J. Kliem, 
E.-Brandström-Str. 37, 

5042 Erfstadt 


TI99/4A, X-Basic+Handb., 
P-Box 2 x RS232 + Cen¬ 
tronics, 32 KB, Contr. + 

1 Laufw., Druckerkabel, 
Tl-Writer, Statistik, ID- 
Data, Ti-Special I + II 
VB, Tel. 06722-71318 


Hab ne Menge zu verk. 
PBox + Dis + 32K + Multip 
+ Soft auch einzeln: 

V. Wiehert, Linzgaustr. 7, 
798 Ravensburg 


Verkaufe: RS232-Karte 
(Orig. TI) DM 250 VB 
Konsole DM 180, Ext. 
Basic DM 150; 3fach 
Modul-Exp. 02041/22661 


Verkaufe: Ti99/Ext.Bas+ 
Record er+Akustikk.+ 
TEII. + Hacker-Handb. + 
Bas.-Kurs für 1200 DM 
Tel. 06371/50564 


Verk. TI-99/4A + Ex.-Basic 
+ Sreech-Synthesizer + 
Datasette + ca. 100 Pro¬ 
gramme + 6 Module 
VB 650,- 
Tel. 06103/81815 


99/4A + Basic + P.Box + 
RS232 + Disk. + EIA + 
Dataphon u. versch. Module 
für 1500 DM 
Tel. 02171/45724 


Verk. Peribox f. TI99/4A 
m. Flexkabelkarte RS 232 
Schnittst.-Karte, Disklauf¬ 
werk, 32 KB-Sp. Erw.- 
Karte + Lit. + Prg. VB 
DM 950,- 
Erwin Wächter, 
Gerstbuschstr. 9 
6670 St. Ingbert 
Tel. 06894/6890 


Suche folgende Bücher: 

9900 Family Systems Design 
and Data Book, TMS 9900 
Family Software Develop¬ 
ment Handbuch, 16-Bit 
Mikroprozessor, Applika¬ 
tionsbuch Bd. 2 
Angebote an: 

M. Humbert, Saphirring 30, 
3008 Garbsen 1 
Tel. 05131/9351 1 


TI99/4A + Ext. Bas. + Ext. 
Bas Plus II + Cass.-Rec + 
Kabel + 3 Bücher + 3 Mod. 
+ ca. 16 Kassetten mit 
Prog. VHB: 900,- 
Tel. 06150/3060 


!!! ADVENTURE !!! 
Suche billigst original 
TI-Adventure (oder Infocom) 
Angebote unter: 0221/697254 


00000000000000000000000 
Suche Touch Typing Tutor 
(Schreibmaschinenlehrgang) 
0221/697254 


Sensation: Rex-soft Katalog 
nur 1,- DM!!! 

50 % des NP 0000000000000 
Info unter: 0221/697254 


TI 99/4A + Box mit32K + 
Laufwerk, X-Basic, ED/Ass, 
Minimem, Schach, Statistik + 
div. Lit. VB 1200,- 
Otmar Scheitl, Hans-Sachs- 
Str. 76, 8706 Höchberg, 

Tel. 0931/40486 ab 17 h 


Zu verk. Neue MBI Inter- 
face-Centron. DMK 150,— 
&: Module Buchungsjoum. 
DM 70,- 
Tel. 069/2566225 


TI99-Zubehör: Ext.-Basic, 
Periph.-box, RS232 Schnitt¬ 
stelle, Laufwerk + Controll. 
G. Renker, Herstadtring 151, 
4630 Bochum 1 


Komplett TI99/4A Konsole 
+ PBox + RS232 + Ext. 
Basic + Laufwerk +32 
Kram + Minimemory + 
Schach + Lit. 

Tel. 07231/41436 


Verk. TI 99/4A + Ext.-Basic 
+ Rek.-Kabel + Joyst., 
Buchungsjournal, Daten- 
verw. + Anal., Statistik, 
Schach usw., div. Lit. 

Peter Jürgen, T. 06893/1553 


Verkaufe TI99/4A + X-Basic 
IIPlus mit deutschem Hand¬ 
buch + Rec.-Kabel + 

Parsec + Joystick für 500,— 
Tel. 06103/25571 


Verkaufe: RS232 ext. 
Schnittstelle (150) TI-Basic 
& Extended Basic Buch 
( 20 ) 

07552/1880 od. 5420 


TI99/4A 10 Ex-Bac. Prg. 
auf Cass. nur 15 DM 
Adrs.: Metin Gurer, 
Bahnhofstr. 70, 

7123 Sachsenheim I 


Suche externe RS232 
Schnittstelle'mit durchge¬ 
führtem Bus 
Tel. 07821/7570 

TI 99/4A + XBasic + 
Minimen + Schachm. + 
Adventurem. + Software 
+ Recorder + Joyst. + 
Literatur. .VB 850,— DM 
Tel. 0551/37 20 28 


TI 99/4A, viel Literatur (neu 
über 200,—) + Programme 
zus. 150,— + orig. Tl-Joyst. 
30,- + ext. RS232 (2 Ports) 
250,— + brother-Drucker 
EP22 170,- +X-Basic (dt. 
Handb.) 170,— + Dateiverw.- 
Modul 40,—; kompl. 680,— 
alle Preise VB 
Tel. 0421-534176 


M.P.7Ü! Ein Strategiespiel 
für Gehirnakrobaten und 
solche, die es werden wollen. 
Ein „Muß“! 

Info: 0221/697254 


Suche Tl-User in Köln zwecks 
Erfahrungs- und Softwareaus¬ 
tausch. Meine Konfiguration: 
Console, Kassettenrekorder, 
XB. Tel.: 0221/697254 


Darst. Ein Superspiel von 
Synamcis zum Super-Preis 
von: 5,— DM !!! (Natürlich 
orig. Info: 0221/697254 
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1-ieGa-Soft 

Software, Hardware und Literatur 
Postfach 1201 8044 Lohhof 


>>>>>>>>>>>>>>>>>>>!H'Es gibt uns noch !!!<<<<<<<<<<<<<<<<<<<< 
Rechtzeitig vor Weihnachten das aktuelle Angebot -für den TI 99-4 A 
>>>>>>>>>>>>>>>>>>>###########################<<<<<<<<<<<<<<<<<<<< 

1. ) Module (naturgemäß nur begrenzte Vorräte) 

TI Schach DM 60,-- 

Othello DM 40 »“~ 

Datenverwaltung und Analyse DM 60,-- 

Statistik DM 40 ’”" 

Buchungsjournal OM 60,-- 

Microsurgeon 0M 65,-- 

Moonsweeper 65,-- 

Alien Addition 0M 15,-- 

Demolition Division 0M 

Meteor Mu1tip1ication 0M 15,-- 

Minus Mission 0M 15,-- 

Dragon Mix 0M 15,-- 

Alligator Mix 0M 15,-- 

2. ) Cassettensoftware 

Personal Financial Aids 0M 15,-- 

Mini Writer (-für Mini Memory) 0M 128,-- 

3. ) Zubehör 

Rekorderkabe1 0M 10,-- 

Joystickver1ängerung ca.3m 0M 10,-- 

Joystickadapter 0M 25,-- 

Druckeranschlußkabel (PI0) 0M 79,-- 

Disketten SS SD, 10 Stück Packung incl.Labels DM 35,-- 

4. ) Hardware 

Drucker MT 80 bzw BX 80 0M 798,-- 

Disclaufwerk 6106 0M 295,-- 

Multiboard TI auf RS 232 0M 150,-- 

5. ) Diskettensoftware 

iD Data DM 119,-- 

iD Konto 0M 119,-- 

iD Profi Set (iD Data + iD Konto) 0M 198,-- 

Graphic Master 0M 99,-- 

3 D World DM 99,— 

TI Forth 0M 148,-- 

Ex-Basic Loader für-Forth 0M 25,-- 

Diskkatalog mit Autostart DM 25,--. 

6. ) Bücher ‘ ' v 

99 Spezial 1 0M 48,-- 

TI Basic/Extended Basic deutsches Handbuch DM 48,-- 

Deutsches Handbuch zum Editor/Assembler Modul DM 98,-- 

deutsche Kurzan1eitung zum TI LOGO (28 Seiten) DM 19,80^ 

ausführliches deutsches Handbuch zum TI L0G0(218 Seiten)DM 59,-- 

Lieferung solange Vorrat reicht. Bestellungen bitte nur 
schriftlich. Lieferung per Nachnahme. Versand kostenpauschale Inland 
DM 5,--. Ab DM 100,-- Bestellwert kostenfrei. Ausland generell 
tatsächliche Postgebühren. Druckfehler bzw. Irrtum Vorbehalten. 
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